EDITIONS DU PS.I. 


la découverte de l’ 


daniel-jean david 





La découverte de 
L'ORIC 


La collection « MATERIELS » s'intéresse à l'utilisation de tel ou tel type d'ordinateur, depuis la première prise de contact jusqu'à 
l'utilisation la plus pointue. 


La découverte de l'Apple 11 — Frédéric Lévy et Dominique Schraen 

La découverte de l'Applesoft (Exercices) — Frédéric Lévy 

La pratique de l'Apple I! — tomes 1 et 2 — Nicole Bréaud-Pouliquen 
La pratique de l'Apple | — tome 3 — Nicole Bréaud-Pouliquen et Daniel-Jean David 
La découverte du CBM — Daniel-Jean David 

La pratique du CBM — tomes 1 et 2 — Daniel-Jean David 

La découverte du Commodore 64 — Daniel-Jean David 

La pratique du Commodore 64 — tome 1 — Daniel-Jean David 

— La découverte du Dragon — Frédéric Lévy et Dominique Schraen 

— Dragon tout feu tout flammes — Trévor Toms et John Phipps — traduit par Olivier Arnaud 
— La découverte du FX-702P — Jean-Pierre Richard 

— La découverte du Goupil — Jean-Yves Michel 

— Programmer HP-41 — Philippe Deschamps et Jean-Jacques Dhénin 

— La pratique du MZ-80 A et K — Jean-Pierre Lhoir 

— La découverte du PB-100 — Pierrick Moigneau 

— La découverte du PC-1211 — Jean-Pierre Richard 

— La découverte du PC-1251 — Jean-Pierre Richard 

— La découverte du PC-1500 — Jean-Pierre Richard 

— Le petit livre du Spectrum — Trévor Toms — traduit par Allan Keil 

— La pratique du Spectrum — tome 1 — Xavier Linant de Bellefonds 

— La pratique du Spectrum — tome 2 — Marcel Henrot 

La pratique du TRS-80 — tomes 1, 2 et 3 — Pierre Giraud et Alain Pinaud 
Exercices pour TRS-80 — Frédéric Lévy 

Les graphiques sur TRS-80 — Donn inman — traduit par Alain Pinaud 
La découverte de la TI-57 — Xavier de la Tullaye 

— La découverte du TI-99/4A — Frédéric Lévy et Dominique Schraen 

— Exercices pour TI-99/4A — Frédéric Lévy 

— La découverte du VIC — Daniel-Jean David 

— La pratique du VIC — tome 1 — Daniel-Jean David 

— Le petit livre du ZX-81 — Trévor Toms — traduit par Ghislaine Lapeyre 
— La pratique du ZX-81 — tome 1 — Xavier Linant de Bellefonds 

— La pratique du ZX-81 — tome 2 — Marcel Henrot 


Autres ouvrages relatifs à l'ORIC-1 : 
— ORIC-1 pour tous — Jacques Boisgontier et Sophie Brébion 
— 52 programmes pour tous, ORIC-1 — Jacques Boisgontier 


RAPPELS 


Les séries : 


En fait, il faudrait parier de niveaux, puisque la couleur attachée à chaque ouvrage permet de situer la « force » de celui-ci selon le 
code suivant : 

Série VERTE : ouvrage d'initiation ne nécessitant que des connaissances de base. 

Série BLEUE : suppose une connaissance élémentaire du sujet traité. 

Série ROUGE : ouvrage d'approfondissement, niveau de complexité moyen. 

Série NOIRE : ouvrage d'approfondissement, niveau de complexité élevé. 


Les collections : 
Les ouvrages d'Edition du PSI, actuellement une centaine, sont répartis en collections : 


« LANGAGES », « MATERIELS », « PROGRAMMES », « GUIDES PRATIQUES », « MEMENTOS », « UTILISATIONS DE L'ORDINA- 
TEUR», « LOGIGUIDE » et pour l'initiation, outre quelques livres hors collection, «.… POUR TOUS ». 


La loi du 11 mars 1957 n'autorisant, aux termes des alinéas 2 et 3 de l'article 41, d'une part, que les « copies ou reproductions 
strictement réservées à l'usage privé du copiste et non destinées à une utilisation collective », et, d'autre part, que les analyses et les 
courtes citations dans un but d'exemple et d'illustration, «toute représentation ou reproduction intégrale, ou partielle, faite sans le 
consentement de l'auteur ou de ses ayants droit ou ayants cause, est illicite» (alinéa 1° de l'article 40). 

Cette représentation ou reproduction, par quelque procédé que ce soit, constituerait donc une contrefaçon sanctionnée par les 
articles 425 et suivants du Code Pénal. 


© Editions du P.S.I. Parc industriel nord, Bâtiment 9, 77200 Torcy Marne-la-Vallée 1983 
ISBN : 2-86595-109-X 


La découverte de 
L'ORIC 


par 
Daniel-Jean David 


Ce) 


Editions du PS.I. 
1984 


LA DECOUVERTE DE L'ORIC 


Daniel-Jean DAVID enseigne l'informatique de gestion 


s 


à l'Université de Paris-1 Panthéon Sorbonne. 


Par ailleurs, il enseigne l'utilisation des micropro- 


cesseurs à L'E.N.S.A.M. 


Ses sujets de recherche vont de l'informatique graphi- 
que aux techniques d'interface des microprocesseurs et 


des systèmes multi-processeurs. 


Spécialiste du microprocesseur 6508, il a donné, à 
Paris, de nombreux séminaires sur les microprocesseurs, 
le KIM, le SYM et le P.E.T. 


Il est directeur de la publication de "La Commode", 
revue trimestrielle consacrée aux ordinateurs Commodore, 


Atari et Oric. 


LA DECOUVERTE DE L'ORIC 


SOMMAIRE 


Pages 

Présentations. s etais antet nee ho nes 7 
CHAPITRES 
1 Prise de contact............. UE RAR Pan di 9 
2 Instructions fondamentales................ 21 
3 Commandes fondamentales................... 31 
4 Bases de la programmation................. 49 
5 Programmation évoluée..................... 71 
6 Courbes, graphiques haute résolution...... 87 
7 Programmes graphiques élaborés............ 109 
8 Effets SONOTeS:;. ers8 na nue er sus eengie e dne des ie à 133 
ANNEXES 
I : Fonctions et mots-clé du Basic.......... 141 
II : Répertoire des instructions et des 

opérateurs Basic... ss ce die ee se cos e 144 
III : Messages d'erreur....................... 151 
IV : Questions et réponses................... 154 
V : Solutions des exercices.........s...ses 158 
Bibliographie 175 


LA DECOUVERTE DE L'ORIC 


PRESENTATION 


Ce livre a pour but de vous permettre de tirer le 
meilleur parti possible de votre micro-ordinateur ORIC. 
Après une introduction formée de rappels généraux sur 
l'informatique, il comprend essentiellement une intro- 
duction progressive au langage Basic, qui est le langage 
de programmation utilisé le plus souvent sur L'ORIC. 


Bien entendu, on y exploite au maximum les particula- 
rités de Ll'ORIC. La structure de cette partie est conçue 
pour permettre l'acquisition progressive des connais- 
sances : elle est formée de chapitres, ou plutôt de 
séries. 

Dans chaque série, on bâtit petit à petit un program- 
me, par variations continues, en introduisant peu à peu 
les notions nouvelles. 


Il est recommandé au lecteur de bien suivre cette pro- 
gression, d'essayer réellement sur son ORIC les diffé- 
rentes versions des programmes, et même d'en imaginer 
d'autres. 


C'est la condition nécessaire d'acquisition de connais- 
sances durables. Toutefois, ce livre devrait aussi per- 
mettre aux personnes qui n'ont pas encore d'ORIC de se 
faire une idée des possibilités de cet ordinateur. 


Enfin, l'ouvrage se termine par des annexes où sont 
fournies des informations de référence : explication de 
chaque instruction Basic, messages d'erreurs, points 
particuliers traités sous forme de questions et de ré- 
ponses. 


Dernière précision : tous les programmes cités ont 
été réellement essayés au clavier d'un ORIC. 
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CHAPITRE | 
PRISE DE CONTACT 


LE MESSAGE "47870 BYTES FREE" 
BITS, OCTETS, INFORMATIONS 


À peine vous êtes-vous assis devant votre ORIC et 
l'avez-vous mis sous tension qu'il affiche "47870 BYTES 
FREE"(1) dont la traduction est : "47870 OCTETS LIBRES". 
Que sont donc ces "OCTETS" dont on vous annonce qu'ils 
sont "LIBRES" ? 


Pour comprendre - et nous nous en excusons - il nous 
faut voir un certain nombre de notions. Nous essaierons 
d'être brefs. L'ORIC est un ordinateur, c'est-à-dire 
une machine de traitement automatique des informations. 
On conçoit que les ordinateurs aient un champ d'applica- 
tions extrêmement vaste puisque, en définitive, toute 
activité humaine se ramène à un certain traitement d'in- 
formations. 


Une des opérations essentielles que l'ordinateur doit 
pouvoir effectuer sur une information est de la mémori- 
ser, pour être capable de l'utiliser à différents mo- 
ments. Mais la mémorisation de l'information implique 
sa mise sous une forme physique convenable pour pouvoir 
être stockée dans les circuits de l'ordinateur. 


(1) Le nombre indiqué est plus petit sur le modèle 16K (15103). 
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Dans l'état actuel de la technologie, le seul codage 
pratique est de type binaire, car on sait très bien réa- 
liser des éléments capables de prendre deux états bien 
distincts, par exemple : présence ou absence d'un trou 
sur une carte, élément de bande magnétique aimanté 
dans un sens ou dans l'autre, élément de circuit élec- 
tronique porté au potentiel 5 V, ou restant à 0 etc. 


Un tel élément qui, en tant qu'information est en 
somme capable de contenir la réponse par oui ou par non 
à une certaine question s'appelle un BIT (abréviation 
anglaise de "chiffre binaire" : Binary Digit}). 


Mais un seul bit forme le plus souvent une information 
trop élémentaire à manipuler de façon pratique. C'est 
pourquoi on manipule généralement des groupes de bits. 
Le groupe le plus souvent envisagé est le groupe de 
8 bits ou OCTET. Pour comprendre ce que signifie "en 
avoir 47870 de libres", il nous faut maintenant voir ce 
que l'on peut représenter avec un octet, c'est-à-dire 
quelles informations peuvent être enfermées dans un 
octet. 


Pour visualiser un octet sur le papier, il nous faut 
introduire deux symboles correspondant aux deux états 
que peut prendre chaque bit de l'octet. Si nous prenons 
pour symboles 0 et 1, un octet pourra être, par exemple, 
01000001 ou 10100101 ou encore 01101001. Notons tout de 
suite que, comme on a deux possibilités pour chaque bit, 
on a 2° = 256 possibilités différentes pour un octet. 


Maintenant, si nous voulons qu'un octet représente un 
nombre, c'est très facile. Il suffit de considérer que 
l'on a exprimé le nombre dans le système de numération 
binaire (à base 2). Ainsi, par exemple, 01000001 vaudra 
1 + Ox2 + Ox22 + Ox2? + Ox2* + Ox25 + 1x2 + Ox27 = 
1 + 64 = 65. De la même façon qu'en décimal 1702 vaut 
2 + Ox10 + 7x10? + 1x10?. Chaque bit représente un chif- 
fre du système binaire, d'où son nom. Le nombre le plus 
petit que l'on puisse représenter est 00000000 (0) ; 
le plus grand est 11111111 (255) : on retrouve les 256 
combinaisons. On voit aussi une chose : comme on veut 
pouvoir manipuler des nombres plus grands que 255, il 
faudra quelquefois que les nombres occupent plusieurs 
octets. 


Peut-on ranger autre chose que des nombres dans un oc- 
tet ? Bien sûr ! Supposons qu'on décide que 01000001= A, 
01000010 = B etc. pour toutes les lettres. Là encore, 
on peut avoir un jeu de 256 caractères différents, ce 
qui permet les lettres majuscules et minuscules, les 
chiffres, les caractères de ponctuation et bien d'autres. 
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On pourra alors stocker n'importe quel texte dans la 
mémoire, à raison d'un caractère par octet. 


On peut donc ranger un texte de 47000 caractères dans 
la mémoire de l'ORIC, soit trente pages de ce livre. 
Cela vous donne maintenant une meilleure idée de ce que 
nous avons comme mémoire. 


Mais il y a encore une autre catégorie d'informations 
qui doivent entrer dans la mémoire, et c'est même une 
caractéristique fondamentale des ordinateurs. En effet, 
un ordinateur a besoin, pour fonctionner, d'instructions 
qui lui disent ce qu'il a à faire. Ces instructions con- 
venablement codées résident en mémoire, au même titre 
que les informations à traiter ; de façon analogue, un 
employé qui effectue des calculs de comptabilité n'a-t- 
il pas en mémoire la liste des opérations qu'il doit 
effectuer à côté des chiffres qu'il doit manipuler ? 


LA CONFIGURATION DE L'ORIC 


La mémoire n'est qu'une partie de la configuration 
dont on dispose avec l'ORIC. Sur les gros ordinateurs, 
on distingue facilement, car ils occupent chacun une ar- 
moire, les éléments principaux qui sont l'unité centrale 
(où s'effectuent les traitements) et les périphériques 
qui servent à communiquer avec le monde extérieur (no- 
tamment saisir les données à traiter et fournir les ré- 
sultats obtenus). 


Les mêmes éléments existent sur l'ORIC. Extérieurement, 
on ne voit que les périphériques : 


- Le clavier : qui va nous servir à entrer des données 
et des instructions ; 


- L'écran de télévision : sur lequel s'afficheront les 
résultats (28 lignes de 38 caractères). Le couple cla- 
vier/écran est l'instrument du dialogue entre vous et 
votre machine : 


- L'unité de cassettes magnétiques : À la différence des 
périphériques de communication précédents, il s'agit 
plutôt d'un périphérique de stockage ou mémoire de masse, 
qui permet de stocker des programmes ou des données si 

la mémoire centrale est insuffisante. Mais la cassette 
est aussi un périphérique de communication entre ORIC 
vous pouvez envoyer un programme ou des données sur cas- 
settes à un ami, qui possède aussi un ORIC. 
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L'unité centrale est cachée, mais elle existe et elle 
est en fait formée de deux éléments : Le processeur et 
la mémoire centrale. 


- Le processeur est ici un microprocesseur, c'est-à-dire 
un circuit intégré à grande échelle capable, à lui seul, 


de commander tout le système : il cherche en mémoire 
les instructions successives, les interprète et les exé- 
cute ; il envoie aux autres composants du système les 


ordres nécessaires. Dans le cas de l'ORIC, le micropro- 
cesseur est un 6502 de MOS Technology, un des plus ef- 
ficaces du marché. 


- La mémoire. Les 47000 octets vus précédemment n'en 
sont qu'une partie. C'est en fait 80000 octets de mémoi- 
re qui sont présents. (Les informaticiens disent 80K où 
K = 2" = ]024). Parmi les 80K, 16K sont de la ROM (Read 
Only Memory), mémoire écrite une fois pour toutes, en- 
core appellée Mémoire Morte ou MEM, qui contient les 
programmes invariables permettant à L'ORIC de se mettre 
au service de l'utilisateur (c'est le système d'exploi- 
tation que nous présentons plus en détail à la section 
suivante). Les 64K restants sont de la RAM (Random Ac- 
cess Memory), c'est-à-dire de la mémoire que l'on peut 
lire ou écrire (ou Mémoire Vive MEV). Elle contient les 
programmes de l'utilisateur et les données variables. 
Seuls 48K en sont accessibles et l'ORIC en réserve 1lK 
pour son usage, d'où les 47K restant libres pour l'uti- 
lisateur. Il faut encore en retirer 1K ou 8K selon le 
mode d'affichage basse ou haute résolution, pour la mé- 
moire d'écran. 


La figure 1 donne une vue synoptique de la configura- 
tion de l'ORIC. Nous avons maintenant complètement in- 
terprété "47870 BYTES FREE". Il nous faut maintenant 
expliquer la ligne "ORIC EXTENDED BASIC V 1." qui le 
précède. Ce sera le but de la section suivante. 


Clavier 













Cassette 





Connecteurs 


Mi r eur 6502 i 
icroprocesseur 65 pour extensions 


RAM 
16/64K 


Figure 1 - Synoptique de l'ORIC 
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PROGRAMMES -— SYSTEME D'EXPLOITATION - BASIC 


On vient de voir que le microprocesseur, pièce maî- 
tresse de l'unité centrale était capable de chercher en 
mémoire les instructions successives, de les décoder et 
d'y obéir. De fait, il n'est capable que de cela ! En- 
suite, pour obtenir quoi que ce soit de l'ordinateur, il 
faudra lui fournir les instructions convenables. Sans 
instructions précises, l'ordinateur ne sait rien faire, 
il n'a aucune initiative. 


Une suite d'instructions que l'ordinateur doit exécu- 
ter successivement s'appelle un programme. Fournir une 
telle suite d'instructions permettant de résoudre un 
certain problème s'appelle programmer. 


Vous concevez donc que vous allez devoir fournir des 
programmes à votre ORIC, que vous introduirez par le 
clavier. Mais, pour que l'ORIC prenne en compte ce que 
vous frappez au clavier, il faut qu'il ait un programme 
qui le lui ordonne. Il n'aurait pas tout seul l'initia- 
tive d'aller voir si quelqu'un tape sur le clavier... 


Heureusement, nous n'avons pas à écrire ce programme. 
En effet, l'ORIC - comme d'ailleurs tout autre ordina- 
teur - est livré avec un ensemble de programmes fonda- 
mentaux qui sont indispensables à son utilisation : pro- 
gramme qui lit le clavier, programme qui affiche sur 
l'écran, programme qui gère les cassettes, programme qui 
attend les instructions de l'utilisateur etc. L'ensemble 
de ces programmes s'appelle le système d'exploitation. 


Ces programmes résident en ROM, afin d'être conservés 
en permanence pour être disponibles dès qu'on met Ll'ORIC 
sous tension. Le message qui s'affiche sur l'écran dès 
cette mise sous tension est une manière de dire à l'uti- 
lisateur que le système d'exploitation se met à sa dis- 
position et attend ses ordres. 


Une composante très importante du système d'exploita- 
tion de l'ORIC est l'interpréteur Basic qui va nous per- 
mettre de fournir des instructions à l'ORIC sous une 
forme commode pour nous. 


La question se pose en effet de savoir sous quelle 
forme - ou en quel langage - nous devons fournir nos 
instructions à l'ORIC. À dire vrai, un ordinateur ne 
"comprend" qu'un seul langage, le langage-machine ou bi- 
naîire. 
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Par exemple, en langage-machine de l'ORIC, "ajouter 2 

et 3" se dirait 10101001 00000010 00011000 01101001 000 
00011 10000101 01010000 ... C'est extrêmement compliqué 
à comprendre et à utiliser pour l'homme ! C'est pourquoi 
d'autres langages de programmation ont été inventés, 

qui s'appellent langages évolués et sont plus proches 

du langage humain, plus proches des notations mathéma- 
tiques usuelles, et donc plus faciles à utiliser. Dans 


un tel langage, "ajouter 2 et 3" se dirait, par exemple, 
À = 2+3 ; c'est beaucoup plus compréhensible, n'est-ce 
pas ? 


Basic est l'un de ces langages évolués, le plus répan- 
du à l'heure actuelle sur les PSI (Petits Systèmes Indi- 
viduels). C'est probablement le plus simple à utiliser 
pour les débutants : son nom est l'abréviation de Begin- 
ners' All-purpose Symbolic Instruction Code = codage 
symbolique des instructions d'usage général pour les 
débutants. 


C'est lui que nous utiliserons sur Ll'ORIC, mais nous 
ne pouvons le faire sans l'aide d'un programme du sys- 
tème d'exploitation. En effet, l'ORIC ne comprend vrai- 
ment que son langage-machine : il faut donc un programme 
du système d'exploitation qui prenne chaque instruction 
de notre programme Basic et la traduise en Binaire pour 
l'exécuter : c'est le rôle - essentiel - joué par l'in- 
terpréteur Basic. 

En résumé, l'affichage qui apparaît sur l'écran à la 
mise en route signifie : l'interpréteur Basic du système 
d'exploitation est à votre disposition - vous disposez 
pour votre programme Basic et vos données de 47870 oc- 
tets libres. Le dernier mot "Ready" qui réapparaîtra à 
chaque fois que l'ORIC aura terminé une commande signi- 
fie "Je suis prêt et j'attends que vous tapiez la pro- 
chaine instruction". 


Faisons-le... 


LES DEUX MODES DE FONCTIONNEMENT DE BASIC 


Mettons-nous au clavier et tapons : 
BONJOUR ORIC ‘Return! 


(Tout message tapé par l'utilisateur se termine en prin- 


cipe par la touche 'Return' - retour chariot -. Dans la 
suite, nous cesserons progressivement de la faire figu- 
rer : elle sera sous-entendue et devra être tapée). 
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L'ORIC répond : 
?SYNTAX ERROR 


En effet, bien que notre message soit très poli, il 
ne forme pas une instruction Basic correcte, et par 
suite, l'ORIC (ou plutôt l'interpréteur Basic) la re- 
fuse. 


Il ne faut pas faire de complexes à propos des messa- 
ges d'erreur, mais chercher calmement l'erreur que l'on 
a faite ; le comportement de la machine est, dans tous 


les cas, parfaitement rationnel. L'ORIC a tout un réper- 
toire de messages d'erreurs qui n'ont pas d'autre but 
que celui de nous aider à les corriger. 


Tapons maintenant : 
?2''BONJOUR'!JE SUIS L'ORIC" ‘Return! 


(les espaces s'obtiennent avec la barre d'espace). 


Cette fois, on a tapé une bonne instruction, et on ob- 
tient comme réponse : 


BONJOUR!JE SUIS L'ORIC 
Ready 


Vous n'obtenez pas cette réponse ? Etes-vous certain 
d'avoir bien tapé tous les caractères, y compris les 
guillemets ? 


Le point d'interrogation signifie simplement "imprimer". 
On constate que l'on a obtenu une réponse immédiate à 
l'instruction. 


De même, si on tape : 
?22+2 ‘Return! 


l'ORIC fera le calcul et imprimera immédiatement le ré- 
sultat. On a donc un mode de fonctionnement à peu près 
semblable à celui d'une calculatrice de poche, où une 
instruction est exécutée dès qu'elle vient d'être tapée. 
On dit qu'il s'agit du “mode immédiat" ou "mode d'exécu- 
tion immédiate" ou encore "mode direct". 


L'ORIC a un second mode de fonctionnement. Tapons : 
29 ?2+2 'Return' 
Rien ne se produit. Tapons encore : 
19 ?''BONJOUR" ‘Return! 
Toujours rien. Tapons : 


RUN (les lettres R U N suivies de ‘'Return') 
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Cette fois, on obtient sur l'écran : 


BONJOUR 
4 
Ready 


Que s'est-il passé ? Eh bien, on a fonctionné dans le 
second mode, où les instructions ne sont pas exécutées 
immédiatement, mais mises en mémoire pour exécution ul- 
térieure. Elles forment alors un programme qui est exé- 
cuté lorsque l'on tape la commande RUN en mode direct. 


Sauf une ou deux exceptions, ce sont exactement les 
mêmes instructions qui peuvent être données en mode di- 
rect ou dans le second mode, qui s'appelle "mode différé" 
ou ‘mode programmé". Alors, à quoi reconnaît-on le mode ? 


C'est très simple : en mode différé, toute instruction 
possède en tête un numéro de ligne, alors qu'en mode 
direct, il n'y a pas de numéro de ligne : 


22+2 mode direct 
19 ?2+2 mode différé (il faut taper RUN pour 
avoir la réponse). 


En plus d'imposer le mode programmé, le numéro de li- 
gne joue un autre rôle : on voit sur l'exemple précédent 
que l'instruction 10 a été exécutée avant l'instruction 
20, bien qu'elle ait été tapée après : les instructions 
sont exécutées non pas dans l'ordre chronologique où 
elles ont été tapées, mais par ordre de numéros de ligne 
croissants. 


L'ORIC est naturellement beaucoup plus utilisé en 
mode programmé, mais, avant, pour nous familiariser, 
nous allons effectuer quelques calculs arithmétiques en 
mode direct. 


ARITHMETIQUE EN MODE DIRECT 


Comme toute calculatrice, l'ORIC permet d'évaluer des 
expressions plus compliquées que 2+2 ! Dans tous les 
cas, on doit commencer par un ? ou par le mot PRINT 
dont il est l'abréviation : cela signifie "imprimez le 
résultat de l'expression qui suit". 


Essayez (les 'Return' sont sous-entendus) 


25-3.5 (soustraction ; résultat 1.5) 
23*12 (multiplication ; résultat 36) 
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21/3 (division ; résultat .333333333) 
2215 (élévation à la puissance :; résultat 
25 = 32) 


On voit donc quels sont les signes d'opération fonda- 
mentaux. Noter * et non x pour la multiplication, t pour 
l'élévation à la puissance (on ne peut, au clavier, met- 
tre un nombre plus haut que l'autre). 


N.B. Le signe "élévation à la puissance" est listé t à 
TZ : : #“ ” . 
l'écran, mais il apparaît sous la forme sur le clavier 
(shift 6). 


VARIABLES 


Etant donné une expression, on peut en faire autre 
chose que d'imprimer sa valeur : on peut mettre la va- 
leur en mémoire pour utilisation ultérieure dans une 
autre expression. 


Pour cela, il suffit de donner un nom à l'expression, 
en tapant par exemple : 


A=2/3 


On dit qu'on a constitué une variable de nom A. L'ORIC 
lui attribue automatiquement un emplacement mémoire 
(que vous n'avez pas à connaître : l'ORIC se charge en- 
tièrement de la gestion de la mémoire). Ensuite, le ré- 
sultat est calculé et rangé dans la case mémoire 
considérée ; il n'apparaît pas sur l'écran. 


La variable peut maintenant être utilisée dans une 
autre expression ; si on tape : 
22%A 
on obtient : 
1.33333333 


Quels noms de variables peut-on prendre ? Les noms de 
variables sont pratiquement arbitraires, à ceci près 
qu'ils doivent se plier aux contraintes suivantes : 


- premier caractère : lettre 
- caractères suivants : lettres ou chiffres (ex. À, Al, 
VAR, RESULT, H2S04). 


L'ORIC permet plus de deux caractères, mais il ne 


prend en compte que les deux premiers. Si deux variables 
que vous considérez comme distinctes ont leurs deux 
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premiers caractères identiques, l'ORIC les confondra : 
par exemple, cas de ALBERT et ALAIN. 


Le fait de pouvoir utiliser plus de deux caractères 
permet de choisir des noms “"parlants" comme RESULT, 
TAUX, CAP..., mais le nom ne doit pas contenir un des 
mots particuliers au langage Basic, qu'on appelle les 
mots-clés : CHIFFRE est interdit, car il contient IF 
qui est un mot ayant une signification particulière pour 
Basic. 


La liste des mots-clés "réservés" est fournie en an- 
nexe. 


L'usage d'une variable ne détruit pas sa valeur, ou 
plutôt n'efface pas la mémoire correspondante. Ce n'est 
que lors d'une nouvelle instruction d'affectation (de 
la forme A=...) que la valeur sera changée. 


Essayez le dialogue suivant : (nous omettons les 
‘'Return' et les Ready) : 
AL = 3 
?AL+5 
8 (5 + 3 = 8) 
23*AL (AL vaut toujours 3) 
9 (3:x.3=. 9) 
ALAIN = 1 (ALAIN est la même variable que AL, 
?2AL+1 elle a maintenant pris la valeur 1) 
2 (1 + 1 = 2) 
Il reste encore une question : à combien de variables 


différentes avons-nous droit ? La limite réelle est en 
fait la taille mémoire, mais on peut espérer avoir plu- 
sieurs centaines de variables, c'est-à-dire de quoi 
traiter les problèmes les plus complexes. 


EVALUATION DES EXPRESSIONS 


On peut calculer des expressions plus compliquées, 
renfermant plusieurs opérations. Essayez : 


25+4%x2 
22x31t2 
25*x3/4 


La première a pour résultat 13, c'est-à-dire qu'on a 
effectué d'abord la multiplication. La deuxième donne 
18, car on a d'abord effectué le 32. La troisième s'éva- 
lue en calculant d'abord 3 x 3 puis en divisant le ré- 
sultat par 4. 
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En résumé, on effectue généralement de gauche à droite, 
mais on a une règle de priorité des opérateurs 


t est le plus prioritaire, puis on a : 


- (prendre l'opposé, exemple : -X), puis 
* et / (ex-aequo), puis : 
et - (ex-aequo). 


Si l'on veut changer l'ordre de priorité, on emploie 
des parenthèses : un groupe entre parenthèses est tou- 
jours évalué en premier. Par exemple : 


(2+10)/5 donne 2.4 alors que 2+10/5 donne 4 
6-(3+5) donne -2 alors que 6-3+5 donne 8 


On peut avoir des parenthèses emboîtées, mais il faut 
toujours qu'il y ait le même nombre de parenthèses ou- 
vrantes et fermantes et que l'expression ait un sens. 
Par exemple 


2(A-3*(B-C))/5t(BxC) 


On dispose, pour faciliter les calculs, d'un ensemble 
de fonctions mathématiques qui peuvent intervenir dans 
les expressions arithmétiques. Leur argument est, comme 
toute sous-expression entre parenthèses, évalué en prio- 
rité. La liste complète de ces fonctions est donnée en 
annexe, mais nous citons tout de suite : SIN (sinus), 
COS (cosinus), SQR (racine carrée), EXP (exponentielle) 


21+SOR(2) donne 2.41421356 


PRECISION DES NOMBRES 


En examinant les résultats obtenus dans les exemples 
qui précèdent, nous pouvons faire un certain nombre de 
remarques : 


- l'ORIC peut imprimer des nombres positifs ou négatifs. 
Il imprime un en tête pour un nombre négatif, rien pour 
un nombre négatif. 


- l'ORIC peut imprimer des nombres entiers ou fraction- 
naires. Pour les nombres fractionnaires, on utilise un 
point (convention anglo-saxonne) au lieu de la virgule 
des Français. On utilise le système décimal, il n'y a 
pas à se soucier de binaire. Signalons aussi que les 
zéros sont barrés (ÿ) pour ne pas être confondus avec 
la lettre ©. 
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- L'ORIC imprime au maximum 9 chiffres significatifs. 

Il en utilise un peu plus dans la représentation interne 
pour faire les calculs, mais n'en "sort" que 9. La re- 
présentation interne est toujours fractionnaire, mais 
si, à la précision des calculs près, le nombre est assez 
proche d'un entier, il sera imprimé comme entier. 


214.99999999 donne 15 


- si le nombre à imprimer est <0,1 ou >999999999, il 
est imprimé en "notation flottante", c'est-à-dire sous 


la forme : Sx.xxxxxxxxEstt (x et t sont des chiffres, S 
est le signe du nombre, s le signe de l'exposant). 
20.000123 donne 1.23E-04 


ce qui se comprend comme 1,23x1074 
?7-1000000000 donne -1E+09 
ce qui se comprend comme -1x10° 


Voilà terminée notre prise de contact avec L'ORIC. 
Nous espérons qu'elle n'a pas été trop ardue, et nous 
vous encourageons à essayer d'autres exemples, pour bien 
vous familiariser. 


Nous sommes prêts maintenant à utiliser l'ORIC en mode 
programmé. 
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CHAPITRE 11 
INSTRUCTIONS FONDAMENTALES 


LE PREMIER PROGRAMME 


Tout en commençant par des notions très simples, nous 
passons maintenant à une programmation plus élaborée, 
en mode différé. 


Tout traitement d'informations, donc tout programme, 
comprend trois étapes fondamentales, immuables : 


- l'acquisition ou entrée des données à traiter ; 

- le traitement des données c'est-à-dire le calcul des 
résultats : 

- la sortie des résultats. 


On aura donc en Basic trois instructions fondamentales 


correspondant à ces trois actions : on les retrouve dans 
le programme À qui a simplement pour but de calculer la 
surface d'un cercle de rayon R (S = PIx R° ). 


Programme A-1 


19 INPUT R 
29 S=-PI*Rt2 
39 PRINT S 


Les programmes sont identifiés par une lettre suivie 
d'un numéro de version. 


L'instruction 19 correspond à l'entrée au clavier du 
rayon R. Lorsque vous aurez tapé RUN, en exécution de 
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cette instruction, l'ORIC affichera sur l'écran un ? et 
le curseur clignotant. Il se mettra en attente que vous 
tapiez une valeur du rayon. Lorsque vous l'aurez fait, 
admettons que vous ayez tapé 1.5 (ce qui veut dire 1,5) 
sans oublier le 'Return', l'ORIC affectera cette valeur 
à la variable et passera à l'instruction suivante. 


L'instruction 29 est l'instruction du calcul propre- 
ment dit de la surface à laquelle on a donné le nom de 
variable S. L'expression arithmétique Basic est une co- 
pie presque conforme (les signes d'opération sont obli- 
gatoires) de la formule mathématique qui intervient. 
Notons que le Basic de l'ORIC considère PI comme une va- 
riable réservée dont il "connaît" la valeur (3,14...) 


L'instruction 39 demande simplement l'affichage du ré- 
sultat 7.06858347, comme nous l'avons vu en mode direct. 


Tout ceci est simple n'est-ce pas ? Eh bien cela ren- 
ferme 90% de tout le Basic, puisque tout repose sur les 
trois opérations fondamentales que nous avons citées. 


Bien que simple, le programme que nous venons d'écrire 
fonctionne de façon satisfaisante : pour calculer la 
surface d'un cercle, on tape RUN puis, dès que l'ORIC a 
affiché un point d'interrogation, on tape la valeur du 
rayon considéré, et dès qu'on a appuyé sur la touche 
‘Return', le résultat apparaît sur l'écran. Et à chaque 
fois qu'on tape RUN, le programme est réexécuté pour un 
nouveau rayon : on peut avoir la surface correspondant 
à autant de rayons que l'on veut. Le fait d'exécuter le 
programme ne l''use" pas, c'est-à-dire qu'il reste en 
mémoire et, dès qu'on tape la commande directe RUN sui- 
vie de 'Return', le programme présent en mémoire s'exé- 
cute. ‘ 


Quelques perfectionnements 


Toutefois, le comportement de ce programme a quelques 
petits inconvénients auxquels nous allons remédier, ce 
qui va nous permettre de voir de nouvelles instructions 
Basic ou de nouvelles formes de celles que nous connais- 
sons. Nous suivrons d'ailleurs cette méthode tout au 
long du livre. 


Objection n° 1 : Lorsque l'ORIC affiche le ? au cours 

de l'instruction INPUT, rien ne dit que c'est à un rayon 
qu'il s'attend ; cela n'est pas gênant car nous le sa- 
vons, mais une personne qui ne connaîtrait pas le pro- 
gramme ne saurait pas quoi répondre au point d'interro- 
gation. Même l'auteur du programme, dans le cas d'un 


programme qui a besoin de beaucoup de données, peut 
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avoir besoin qu'on lui remémore dans quel ordre entrer 
celles-ci. 


En résumé, ce qui serait souhaitable, c'est d'afficher 
un message qui dise à l'utilisateur quelles sont les 
données attendues par l'INPUT. On aimerait, par exemple, 
avoir un affichage du genre : 


RAYON DU CERCLE ? ou DONNEZ UN RAYON ? 


Eh bien Basic le permet très facilement. En effet, on 
peut employer INPUT sous la forme : 


INPUT ‘texte'" ; variable 


A ce moment, le texte entre les guillemets va appa- 
raître sur l'écran, suivi du point d'interrogation ha- 
bituel de INPUT, et il suffit de répondre comme dans le 
cas précédent. ‘ 


Ainsi, si on remplace l'instruction 19 du programme 
A-l par : 


19 INPUT "RAYON DU CERCLE" ; R 


notre problème sera complètement résolu. Le point- 
virgule qui sépare le texte de la liste de variables 
est impératif, tout comme les guillemets qui délimitent 
le texte. 


Oui, mais comment remplacer l'ancienne instruction 18 
par la nouvelle ? Tout simplement en tapant la nouvelle 
instruction 19, sans oublier de commencer par le numéro. 
Elle viendra remplacer l'ancienne dans la mémoire où le 
programme est conservé. 


Objection n° 2 : Lorsque le résultat est affiché, on 
obtient un nombre, mais rien n'indique qu'il s'agisse 
de la surface du cercle. On aimerait bien, là aussi, 
qu'un message convenable nous éclaire. Dans le cas d'un 
programme fournissant beaucoup de résultats, il serait 
tout à fait indispensable que chaque résultat soit 
identifié. 

Comme le précédent, ce problème se résout facilement 
en Basic. Il suffit de savoir qu'on peut, par PRINT, 
afficher n'importe quel texte entouré de guillemets. 


Ainsi, nous pourrons remplacer l'instruction 3% par : 
39 PRINT ‘SURFACE =",S 


, 


et tout sera dit. 
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On aura maintenant un dialogue de la forme (nous sou- 
lignons ce qui est tapé par l'utilisateur) : 


RUN 
RAYON DU CERCLE ? 19 
SURFACE = 314.159265 
Ready 


Objection n° 3 : Notre programme est nettement amélioré, 
surtout du point de vue du dialogue homme-machine, et 
toute entrée-sortie doit toujours se présenter ainsi. 
Mais il reste encore un petit élément d'inconfort : 
lorsqu'on veut traiter plusieurs rayons, il faut à 
chaque fois taper RUN, ce qui est un peu fastidieux. 


Basic a une réponse : nous allons ajouter à la fin du 
programme une instruction qui dit à l'ORIC "recommencez 
l'exécution depuis le début (=l'instruction 1#)". 
Ajoutons l'instruction : 

4ÿ GOTO 19 
Sachant que "GOTO" signifie "aller à", le fonctionnement 
est évident : à chaque fois qu'un calcul est fait et 


son résultat imprimé, L'ORIC arrive à l'instruction 4ÿ 
qui le renvoie en 19 où on demande un nouveau rayon et 
ainsi de suite ... 


On dispose maintenant du programme A-2 qui, bien 
qu'il ait été facile à écrire, a un comportement très 
commode. Il fait apparaître une notion importante, la 
notion de boucle. Une structure formée d'un groupe 
d'instructions qui seront exécutées plusieurs fois s'ap- 
pelle une boucle. La possibilité d'exécuter des boucles, 
donc d'effectuer des calculs itératifs est un point 
fort des ordinateurs. 


Programme A-2 


19 INPUT "RAYON DU CERCLE'":R 
29 S-PI*Rt2 

39 PRINT "SURFACE = ",S 

49 GOTO 1ÿ 


Sortie du programme par 'Ctrl' C. 


Commande CONT. 


La boucle que nous venons de voir dans le programme 
A-2 résolvait un problème, mais elle nous en pose un 
autre : en effet, elle ne finit jamais. Indéfiniment 
l'ORIC demandera un nouveau rayon, et encore un autre... 
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Il est en fait normalement interdit d'implanter une 
telle boucle indéfinie dans un programme ; tout pro- 
gramme doit être assuré de se terminer au bout d'un 
temps fini. Nous verrons par la suite des instructions 
permettant d'établir des boucles dont on est sûr 
qu'elles se terminent. Cependant, on a un moyen de s'en 
sortir. 


Ce moyen est nécessaire car, malheureusement, il peut 
arriver que les choses s'arrangent mal. Si, par suite 
d'une erreur de programmation, l'ordinateur se perd 
dans une boucle sans fin et tourne indéfiniment sans 
fournir de résultat, ne peut-on pas reprendre le con- 
trôle ? 


Si ! Il suffit d'appuyer sur la combinaison de touches 


'Ctrl' et C. On obtient aussitôt l'affichage : 


BREAK IN (arrêt à l'instruction numéro...) 
Ready 


On peut alors faire imprimer des variables pour voir 
si tout est correct. Il se peut, en effet, que l'on 
n'obtienne pas de résultats pendant longtemps, simple- 
ment parce que les calculs sont longs et non parce que 
l'on a une boucle indéfinie. À ce moment, on peut faire 
reprendre l'exécution là où elle en était, en tapant la 
commande en mode direct : CONT. 


ICtrl' C fait arrêter l'exécution du programme de fa- 
çon que celle-ci puisse reprendre par CONT. CONT ne peut 
fonctionner que s'il n'y a eu aucune modification du 
programme pendant l'arrêt. 


Le programme A-2 est donc correct : nous pouvons avoir 
la surface de tous les cercles que nous voulons, et 
quand nous n'en voulons plus, nous frappons les touches 
'Ctrl' et C pour terminer. 


N.B. Le message BREAK IN... n'apparaît pas lorsque 
c'est un INPUT qu'on interrompt par ‘Ctrl' C. 


Compléments : Sans prétendre être complets (le meilleur 
moyen d'apprendre toutes les particularités d'un lan- 
gage, c'est la pratique) il y a un ou deux détails sup- 
plémentaires que nous devons donner maintenant sur INPUT 
et sur PRINT. 


Entrée de plusieurs données 


On peut entrer plusieurs données dans une même instruc- 
tion INPUT. Par exemple, si au lieu de calculer la sur- 
face du cercle, nous voulions calculer le volume d'un 
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cylindre, il faudrait donner le rayon, mais aussi la 
hauteur H. 


On pourrait employer une instruction de la forme : 
19 INPUT "RAYON,HAUTEUR":R,H 


et, en réponse, il faudrait maintenant taper deux nom- 
bres séparés par une virgule : 


RAYON ,HAUTEUR ? 15.5 , 29 ‘Return! 


Ne confondez pas le point de 15.5 qui, en notation an- 
glaise sépare partie entière et partie décimale d'un 
nombre, avec la virgule qui sépare deux nombres diffé- 
rents qui iront dans des variables différentes. 


Petit "courrier du coeur" : En réponse à un INPUT I,J 
où je devais entrer les valeurs 45 et 105, j'ai, par 
erreur, mal placé la virgule et tapé 4,5105. Que se 
passe-t-il ? : ... l'ORIC va entreprendre les calculs 
avec les valeurs I = 4 et J = 5105, qui ne sont pas 
celles que vous souhaitiez. 


Autre question : à un INPUT I,J où je devais fournir 
deux valeurs, je n'en n'ai donné qu'une, suivie de 
lReturn'. Que se passe-t-il ? : ... rien de grave, 
l'ORIC va prendre en compte cette première valeur et, 
voyant qu'il lui en faut une autre, il affichera un nou- 
veau point d'interrogation. Lorsqu'on a un INPUT à plu- 
sieurs variables, on peut grouper les données qu'on 
fournit comme on veut, puisque, tant qu'il n'aura pas 

eu toutes les valeurs qu'il attendait, l'ORIC vous le 
signalera en affichant un point d'interrogation. 


Exemple de dialogue: (instruction 19 INPUT"I,J ";I,J) 


I1,J ? 45 'Return' 
? 105 ‘Return! 


Au contraire, maintenant, je tape trop de valeurs 
(exemple : 45,105,200 pour INPUT I,J). Que se passe-t- 
11 ? : ... l'ORIC prend en compte les n premières va- 
leurs s'il en attend n (dans notre exemple I = 45 et 
J = 105) et il imprime EXTRA IGNORED ce qui indique que 
les valeurs supplémentaires (et superflues) sont igno- 
rées. 


Et si je ne tape pas du tout de valeurs, c'est-à-dire 
st, en réponse à un INPUT, je fais "'Return' tout de 
suite ? : ... 1l'ORIC affiche un point d'interrogation 
pour montrer qu'il attend des données. 
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Expression arithmétique dans un ordre PRINT 


Nous avons, jusqu'ici, demandé l'impression soit d'un 
titre, soit de la valeur d'une variable. Ce sont des cas 
particuliers de la loi générale qui permet de mettre 
comme élément à imprimer n'importe quelle expression 
arithmétique : l'ORIC effectuera le calcul et affichera 
la valeur obtenue. 


Tapez 
2"5 À POUR CARRE",5t2 


Vous obtiendrez 
5 À POUR CARRE 25 


Comme cas particulier d'expression arithmétique, on 
peut mettre une variable, mais même une constante. On 
pourrait écrire 

? 5 : "A POUR CARRE", 512 
à la place de l'exemple précédent. 


Lorsqu'on fait imprimer un titre, on exploite ce fait : 
tout texte encadré de guillemets constitue une constante 
chaîne de caractères. 


Séparation des éléments dans une liste d'impression 


Il est bien entendu que là où nous disons "impression" 
il faut entendre "affichage sur l'écran", mais avec 
l'ORIC il suffit d'une seule modification que nous ver- 
rons bien plus tard pour que toutes les informations 
concernées par tous les ordres d'impression apparais- 
sent à l'imprimante si l'on en dispose d'une. 


Finissons-en aussi avec le point d'interrogation 
sur l'ORIC, ? est une abréviation commode de l'instruc- 
tion PRINT. 


Par ailleurs, dans les différents exemples qui ont 
précédé, lorsque nous avons voulu afficher plusieurs 
informations dans le même ordre PRINT, nous les avons 
séparées tantôt par point-virgule, tantôt par virgule. 
Quelle est la différence ? Lorsque deux zones sont sépa- 
rées par point-virgule, elles seront imprimées join- 
tives sur la ligne, tandis que si on les sépare par une 
virgule, l'impression de la seconde zone commencera à 
la colonne 6 (on appelle cela la tabulation ; en fait, 
elle consiste à laisser 3 espaces). 


Essayez : 


& +) & 
> 
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Pourquoi les zéros ne sont-ils pas "collés" dans le 
second exemple ? Parce que chaque nombre imprimé com- 
porte un signe (ici on n'a rien car les nombres sont 
positifs) et est suivi d'un espacement. 


Qu'en est-il pour les chaînes de caractères ? 
Essayez : 


?"BON" ; "JOUR" 
BONJOUR 

?"BON" , "JOUR" 

BON JOUR 

?"EH BONJOUR" , "MONSIEUR" 
EH BONJOUR MONSIEUR 


Encore deux indications : 


- Si nous ne mettions aucun séparateur, l'ORIC ferait 
comme si nous avions mis un point-virgule. Mais cela 
n'est pas possible qu'entre deux chaînes de caractères, 
ou entre chaîne et variable. 


- On peut terminer l'ordre PRINT par une , ou un ; 
alors qu'il n'y a rien à séparer. Cela a pour effet que 
le prochain ordre PRINT écrira sur la même ligne, de 
façon jointive ou avec une tabulation, selon que l'on 
aura mis ; ou 


, , 


Essayez les programmes : 


1 2 3 

19 ?'BON' 19 ?2'"BON'; 19 7'BON'", 

29 ?'"JOUR" 29 ?''JOUR" 29 ?''JOUR" 
Effet 

BON BONJOUR BON JOUR 

JOUR 


Tout vient de ce qu'un ordre PRINT normal effectue un 
“retour chariot" pour terminer, qui est supprimé par le 
; où la , 

Par contre, si l'on veut avancer d'une ligne sans rien 
imprimer, il suffit de mettre PRINT tout court. 


Précisons enfin que, si pour un PRINT la , ou le ; ne 
font pas grande différence sauf si l'on veut soigner la 
mise en page, pour INPUT ils sont essentiels et pas du 
tout interchangeables : les variables à entrer doivent 
être séparées par des virgules (ainsi que les données au 
moment où on les fournit) et, s'il y a un message de 
titre, il doit être séparé du reste par un point-virgule. 


28 


LA DECOUVERTE DE L'ORIC 


EXERCICES 


Bien que nous n'ayons vu que trois instructions Basic, 
nous avons déjà en main des possibilités immenses, car 
elles couvrent les trois opérations fondamentales de 
tout traitement : 


- entrer les données, 
- calculer, 
- sortir les résultats. 


Vérifions-le sur deux exercices que nous vous recom- 
mandons instamment de traiter sans regarder la solution 
à la fin du volume. 


Exercice 2.1 


Modifier le programme A-2 pour calculer le volume de 
cylindres de rayon R et hauteur H. 


Exercice 2.2 


Ecrire un programme de structure analogue, mais qui 
calcule l'intérêt rapporté par un certain capital placé 
à un certain taux pendant N années (intérêts composés 
annuellement). 


Remarque : la numérotation des exercices est faite sous 
la forme chapitre.numéro. 
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CHAPITRE III 
COMMANDES FONDAMENTALES 


Un programme entré en mode différé ne peut être uti- 
lisé qu'en conjonction avec un certain nombre de com- 
mandes en mode direct, qui disent au système 
d'exploitation ce que l'on veut faire. 


Nous avons déjà vu la plus fondamentale de ces comman- 
des : RUN qui permet d'exécuter le programme. 


Mais on peut faire d'autres opérations sur un pro- 
gramme. On peut le lister, c'est-à-dire imprimer ses 
instructions, ce qui est utile, notamment pour recher- 
cher des erreurs, ou si l'on envisage une modification. 
On peut le corriger et, pour cela, l'ORIC est assez 
commode. On peut le sauvegarder sur cassette pour pou- 
voir l'utiliser ultérieurement sans avoir à le retaper. 


Le Basic de l'ORIC possède tout un environnement de 
commandes permettant ces opérations. Il est indispensa- 
ble que nous les voyions maintenant. 


LIST 


LIST tout court fournit sur l'écran la copie de tout 
le programme présent en mémoire. S'il n'y a pas de pro- 
gramme, par exemple, aussitôt après la mise sous ten- 
sion, lL'ORIC affiche Ready immédiatement. On dit qu'on 
obtient la liste, ou en franglais le listing du pro- 
gramme. 
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Si le programme est très long, et donc ne tient pas 
dans les 28 lignes de l'écran, la liste va défiler sur 
l'écran (une ligne apparaît en bas alors qu'une ligne 
disparaît en haut) et la lecture sera difficile. Pour 
la faciliter, on peut stopper en appuyant sur la barre 
d'espace. Le listing reprend en appuyant sur n'importe 
quelle touche. 


Vous pouvez l'essayer, mais les programmes que nous 
avons écrits jusqu'à présent sont un peu courts pour 
que cela se voie bien. 


Deux particularités sont apparues sur les listes que 
nous avons pu obtenir en faisant quelques essais. 


- les instructions apparaissent sur la liste dans l'or- 
dre des numéros croissants, c'est-à-dire le même ordre 
que pour l'exécution, quel que soit l'ordre dans le- 
quel elles ont été tapées : 


- si, pour des instructions d'impression, nous avons 
utilisé le point d'interrogation, sur la liste c'est 
le mot PRINT qui apparaît. 


Nous supposerons dans la suite que nous avons en mé- 
moire, le programme A-2 du chapitre précédent. 


Listes partielles 


On peut lister une seule instruction, en donnant son 
numéro : LIST x 


LIST 2ÿ 
29 S=PI*Rt2 


Pour lister toutes les instructions comprises entre 
les instructions de numéros x et y, on tape LIST x - y 


LIST 29 - 3ÿ 
29 S=PI*Rt2 


39 PRINT "SURFACE = ",S 
Les bornes - si elles existent - sont comprises. 
LIST 15 - 35 donnerait le même résultat que l'exemple 
précédent. 


LIST -x : liste depuis le début jusqu'à la ligne x : 
LIST -2ÿ 
19 INPUT "RAYON DU CERCLE'":R 
29 S=PI*Rt2 


32 


LA DECOUVERTE DE L'ORIC 


LIST x- : liste à partir de la ligne x jusqu'à la fin : 
LIST 39- 
39 PRINT "SURFACE = ",S 
4ÿ GOTO 1ÿ 


Comme l'exécution d'un programme, une liste peut être 
interrompue à l'aide des touches 'Ctrl' C. Couplé avec 
le LIST x-, cela permet de lister un long programme par 
morceaux : on appuie sur 'Ctrl' C quand on voit que 
l'écran va être plein. 





Bien sûr, s'il n'y a aucune instruction dans l'inter- 
valle demandé, on a tout de suite Ready. 


NEW 


Lorsqu'on tape une instruction Basic en mode program- 
mé (donc avec un numéro) il peut se passer deux choses : 


- où bien l'instruction que l'on vient de taper porte 
le même numéro qu'une instruction déjà présente : à 
ce moment elle vient remplacer l'ancienne :; 


- ou bien il n'existait pas d'instruction de même numéro 
que celle qu'on vient de taper : alors - comme on 
pourrait le constater en demandant LIST - l'instruc- 
tion vient s'intercaler dans le programme à la place 
impliquée par son numéro. 


Il en résulte que, si l'on veut introduire un program- 
me complètement nouveau, et si les instructions nou- 
velles ne correspondent pas une à une à celles de 
l'ancien programme, il restera des instructions ancien- 
nes au milieu des nouvelles, qui, bien entendu, pertur- 
beront le fonctionnement. 


La commande WEW a pour but d'éliminer cet inconvénient 
son effet est de supprimer complètement le programme 
actuellement présent. Il est conseillé de l'utiliser 
avant de taper un nouveau programme. 


NEW ne doit pas être confondue avec une autre commande 
ou instruction CLEAR qui, elle, a pour effet de remet- 
tre à zéro toutes les variables. En somme, NEW vide la 
mémoire programme tandis que CLEAR vide la mémoire des 
données (l'une et l'autre sont deux zones de la même 
mémoire ). 


Enfin, une autre instruction, CLS, vide l'écran. 
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Remarque : En fait, NEW contient CLEAR, c'est-à-dire 
que lorsqu'on fait NEW, toutes les variables sont, par 
la même occasion, remises à zéro. De même, RUN contient 
CLEAR, ce qui faut qu'au début de l'exécution d'un pro- 
gramme, toutes les variables ont la valeur 0 jusqu'à ce 
qu'une instruction leur donne une autre valeur. 


RUN 


Nous connaissons déjà bien la commande RUN tout court. 
On peut l'employer aussi sous la forme RUN x où x est 
un numéro d'instruction. Cela aura pour effet de lancer 
l'exécution du programme, mais à partir de la ligne x. 


Question : J'ai un programme comportant l'instruction 
19. Je peux le lancer par RUN 1f . Je peux ausst le 
lancer en tapant GOTO 1 en mode direct. Quelle est la 
différence ? 

- RUN 19 remet les variables à zéro, ce que ne fait pas 
GOTO 1ÿ. Introduisez comme programme : 


5 À = 3 

19 ?A 
et essayez les dialogues 

1 2 3 

A=5 A=5 A=5 

RUN RUN 19 GOTO 1ÿ 
Effet 

3 9 5 


Dans le premier cas, on passe sur l'instruction 5 qui 
donne à À la valeur 3. Dans le second cas, RUN remet A 
à zéro. Ce n'est que dans le troisième cas que l'effet 
de l'affectation en mode immédiat sera conservé. 


END 


Le RUN numéro permet de constituer un programme en 
plusieurs parties telles que l'on exécute tantôt l'une 
tantôt l'autre. Il suffit de taper RUN numéro de la 
première instruction de la partie voulue. 


Oui, mais supposons que l'on ait exécuté la première 
partie : on va tomber maintenant sur la deuxième partie, 
ce qui n'est peut être pas souhaité. IL suffit de 
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terminer chaque partie par une instruction END qui veut 
dire "retourner au niveau de commande directe". Après 
exécution d'une instruction END, Basic affiche Ready. 
Pour la bonne règle, notre programme A-1 aurait dû se 
terminer par une instruction : 


49 END 


Mais, en fait, lorsque Basic arrive à la dernière 
instruction d'un programme sans rencontrer de END, il 
fait comme s'il y avait cette instruction. 


Edition d'un programme 


Nous devons voir maintenant tout un ensemble de pro- 
cédures qui permettent de modifier ou corriger un pro- 
gramme en ayant le moins possible à retaper. 


De ce point de vue, l'ORIC est assez commode. Mais 
avant de voir ces procédures, il nous faut faire plus 
ample connaissance avec le clavier. Nous aurions pu le 
faire précédemment, avant même de procéder à nos pre- 
miers essais, mais nous avons pu nous en passer, alors 
que maintenant c'est indispensable. 


Le clavier de Ll'ORIC 


Le clavier de l'ORIC est représenté figure 3-1. 


DRE meme © 1 





Figure 3-1 : le clavier de L'ORIC 


On peut considérer qu'il y a trois sortes de touches : 


- les touches ordinaires, dont l'appui fait afficher le 
caractère correspondant sur l'écran : par exemple, 
quand vous appuyez sur la touche À, il s'imprime un A 
sur l'écran ; 
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- les touches de modification de l'affichage et les tou- 
ches spéciales : comme ‘'Return' ou les touches de 
mouvement de curseur ; 


- les touches de commande qui, enfoncées simultanément 
avec une seconde touche, déterminent la fonction de 
cette seconde touche. Les touches de commande sont 
'SHIFT' (il en existe deux qui sont parfaitement équi- 
valentes), 'Ctrl' (Contrôle) et 'Esc' (Escape). 


Chaque touche ordinaire a, en général, deux fonctions, 
représentées l'une au dessus de l'autre, au dessus de 
la touche. (Ex. ). Vous obtenez le caractère du bas 
(Ex. /) en appuyant simplement sur la touche. Vous obte- 
nez le caractère du haut (Ex. ?) en appuyant en même 
temps sur SHIFT. 


Lorsque nous disons "en appuyant simultanément", cela 
signifie : appuyer d'abord sur la touche de commande 
(SHIFT ou CTRL) et la maintenir enfoncée, appuyer sur 
la touche voulue, la relâcher, et, enfin, relâcher la 
touche de commande. Entraînez-vous à votre clavier ! 


A 


Le signe t (élévation à la puissance) est marqué 
sur le clavier ('Shift' 6). 


Pour les touches lettre, il y a deux modes : majus- 
cules seules (valable à la mise sous tension) et majus- 
cules/minuscules où, sans 'Shift' on a la minuscule, et 
avec 'Shift' on a la majuscule. On passe d'un mode à 
l'autre en faisant 'Ctrl' T. Les programmes Basic doi- 
vent être tapés en majuscules. 


Touches mouvement de. curseur 


Le curseur est le rectangle clignotant que vous avez 
à l'affichage lorsque l'ORIC attend que vous tapiez 
quelque chose : il marque la position sur l'écran où 
apparaîtra le prochain caractère que vous taperez. 


Les touches mouvements de curseur déplacent ce curseur 
sans imprimer de caractère ni modifier les caractères 
déjà présents à l'écran, sur lesquels le curseur passe. 

Les touches —+, t ,— , et 4 créent , de façon évidente 
le mouvement marqué. 


Exemple : t que nous figurerons sous la forme h fait 
aller d'un cran vers le haut. De même, nous utiliserons 
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les abréviations suivantes pour les symboles flèches en 
bas b, flèche à gauche g, flèche à droite d. 


Exercice d'entraînement 3.1 


Effectuez le parcours figure 3.8 en prenant bien soin 
de revenir au point 4. 


Figure 3-2 


La touche 'Del' supprime le caractère immédiatement à 
sa gauche, permettant ainsi une correction immédiate 
des erreurs de frappe. 


Nous voulons taper BONJOUR, mais nous nous apercevons 
que nous avons tapé BONKO 

Nous tapons une première fois sur 'Del' : BONK 

puis une deuxième : BON et nous n'avons plus qu'à 
continuer JOUR. 


Exercice d'entraînement 3.2 


Vous vouliez taper BONJOUR et vous avez tapé BONUR 
Ces dernières touches vont spécialement nous servir 
pour la correction des programmes. 
La touche "Ctrl 
La touche ‘Ctrl' produit des fonctions spéciales lors- 


qu'elle est appuyée en même temps que certaines autres 
touches. 





Actions en va et vient 


Un appui produit une action, un deuxième appui produit 
le contraire. 





‘'Ctrl' D passe en mode doubles caractères en hauteur 

'Ctrl'F active/supprime le bip à chaque appui de 
touche 

LCErL"-P active l'imprimante 

“CEEL!.Q active/supprime le curseur 

ICtrl' S active l'écran 
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ICtrl'! T passe en mode majuscules seules. 

CELL’. ] permet d'accéder aux deux colonnes de 
gauche de l'écran (la ligne passe ainsi à 
40 colonnes). 


Formatage sur l'écran 




















“Ctr1l'"H curseur à gauche. 

"Ctrl! I curseur à droite. 

'Ctrl' J curseur bas. 

CCTCEL!-"K curseur haut. 

ICETL' TE vidage écran. 

'Ctrl' M retour-chariot. 

'Ctrl' N vide la ligne où se trouve le curseur. 





Actions spéciales 

“CÉEL'=A se comporte comme un curseur à droite mais 
tout se passe comme si les caractères sur 
lesquels on passe venaient d'être retapés. 
C'est un des outils essentiels de la correc- 
tion des programmes. 


LCTEL" °C stoppe l'exécution d'un programme ou d'un 
listing. 

'Ctrl' G fait retentir un "“ding'". 

'Ctrl' x arrête la frappe d'une ligne. 


La touche "'Esc' (escape) 


Attention, à la différence de 'Ctrl' et 'Shift', vous 
appuyez sur 'Esc' puis sur le second caractère. 


Cette touche a pour. effet de modifier les attributs 
de l'affichage écran, à partir du moment où elle est ta- 
pée jusqu'à la fin de la ligne ou jusqu'à la prochaine 
modification. Les attributs seront traités plus en dé- 
tail dans un autre chapitre. Disons ici qu'ils déter- 
minent la couleur du fond et la couleur des caractères, 
le fait d'être en simple hauteur ou en double, le fait 
d'être fixe ou clignotant, le fait d'être pris dans le 
jeu de caractères standard ou auxiliaire. 
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: 'Esc' . 
[rome [are] max | 





'Esc' 
suivt de 
























































































@ caractères noirs double hauteur, 
A caractères rouges clign, std 
B caractères verts double hauteur, 
C caractères jaunes clign, aux 
D caractères bleus : 
L P fond noir 
E caracteres pourpres 
x Q fond rouge 
F caracteres 
; R fond vert 
turquoises : 
G caractères blancs > FOR JAUNE 
T fond bleu 
H simple hauteur, U fond pourpre 
fixe, std V fond turquoise 
T simple hauteur, W fond blanc 
fixe, aux 
J double hauteur, x texte 60, Hz 
; Y texte 60 Hz 
fixe, std 
Z texte 50 Hz 
K double hauteur 
| G { texte 50 Hz 
fixe, aux 
L simple hauteur, } graphique 60 Hz 
clign, sta de graphique 50 Hz 
M simple hauteur, 
clign, aux 
Notes : std = jeu de caractères standard 
aux = jeu de caractères auxiliaire 
clign = clignotant. 
le 50 Hz est applicable en Europe, le 60 Hz aux U.S.A. 
St, en Europe, vous faites un 'Esc' X, vous perdez la synchro- 
nisation de l'affichage. 








Exercice 3.3 


Ecrivez (en mode direct) BONJOUR MADAME BONJOUR MON- 
SIEUR avec les deux BONJOUR fixes sur fond blanc, le 
premier noir, le deuxième bleu. MADAME clignotant blanc 
sur fond noir, MONSIEUR clignotant jaune sur fond bleu. 


Autres touches spéciales 
Nous avons déjà vu les rôles de 'Return' (retour- 


chariot et acquittement de message) et 'Barre d'espace" 
(espace et arrêt temporaire d'un listing 
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Mode minuscule 


À la mise sous tension, les touches lettres donnent 
la lettre majuscule, avec Shift ou sans Shift. 


Eh bien il existe un mode où l'on obtient la lettre 
minuscule (avec la touche seule), la lettre majuscule 
(avec Shift). On a donc un comportement de machine à 
écrire. 


On passe d'un mode à l'autre, et inversement, en ap- 
puyant simultanément sur 'Ctrl' et T. La transformation 
affecte tout ce qui est affiché sur l'écran. 


Répétition 


Toutes les touches ont la répétition automatique, 
c'est-à-dire que si on les maintient appuyées, leur 
fonction se répète. C'est spécialement pratique pour 
faire voyager rapidement le curseur. 


Modification ou correction d'un programme 


Lorsqu'on a trouvé une erreur dans un programme, ou 
lorsqu'on veut simplement y apporter une modification, 
il est important de pouvoir le faire commodément, c'est- 
à-dire en ayant le moins possible d'informations à re- 
taper. 


Nous savons déjà : 


- Ajouter ou insérer.une nouvelle instruction : il suf- 


fit de taper l'instruction en lui attribuant un numéro 
compris entre ceux des instructions entre lesquelles on 
veut l'intercaler. 


Il en résulte immédiatement un conseil : lorsqu'on 
écrit la première version d'un progamme, il ne faut pas 
donner des numéros consécutifs, afin de pouvoir faire 
des insertions par la suite. On suggère, par exemple, 
de numéroter de 10 en 10 ; 


- Transformer complètement une instruction : on tape la 


nouvelle version avec le même numéro que l'ancienne. 
Dès qu'on tape 'Return' le remplacement s'effectue. 


Voyons maintenant de nouvelles possibilités : 


- Suppression complète d'une instruction : il suffit de 


taper le numéro suivi de ‘'Return'. 
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Nous allons en faire un essai qui va nous servir pour 
la suite. Nous supposons que nous avons le programme 
A-l en mémoire (sinon, retapez-le : c'est fastidieux, 
mais nous verrons bientôt comment récupérer un programme 
sans le retaper, grâce aux cassettes). 


Faisons un LIST, mais, avant, nous tapons CLS pour 
avoir le listing en haut de l'écran. 


Ensuite, nous tapons 3% 'Return' pour supprimer la der- 
nière instruction. Nous vérifions par LIST que cela a 
bien été fait. Nous n'avons plus l'instruction 3. 


Pour la récupérer, si par suite d'une erreur ce 
n'était pas celle-là qu'il fallait supprimer, on doit 
théoriquement la retaper. Eh bien non ! Pas tant que 
l'instruction est affichée. En effet, tant que l'ins- 
truction est affichée, elle est dans la mémoire d'écran. 
11 y a un moyen de la transférer dans la mémoire pro- 
gramme : c'est de ramener le curseur au début de la li- 
gne de l'instruction et de parcourir la ligne en faisant 
'Ctrl' À ; on termine par ‘'Return'! 


Essayons-le : nous amenons le curseur sur la ligne 3% 
du premier listing ; on a, à l'affichage 


# PRINT S 
On fait des 'Ctrl' À jusqu'à 39 PRINT S 


A ce moment, on tape 'Return'. Il semble ne rien se 
passer. Descendons le curseur vers le bas de l'écran et 
faisons LIST : on voit alors que l'instruction 39 est 
revenue dans le programme. 


En résumé, dès qu'on tape 'Ctrl' À en face d'un ca- 
ractère sur l'écran, c'est comme si on le retapait. 
C'est ce qui va nous servir pour toutes les autres pro- 
cédures de modification. C'est déjà ce qui est exploité 
pour supprimer une instruction : on crée une nouvelle 
version vide de l'instruction, et Basic ne garde pas 
une instruction vide. 


- Modifications de quelques caractères sur une ligne 
C'est la que se manifeste toute la puissance du système 
d'édition de l'ORIC. Il résulte de ce que nous venons 
de voir que la procédure à observer est la suivante : 


1 - Lister la ligne à modifier (si elle n'est pas déjà 
sur l'écran). 


2 - Amener le curseur sur la ligne à modifier et aller 
par 'Ctrl' À jusqu'au premier caractère à changer. 
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3 - Pour chaque caractère à remplacer, taper sur place 
le nouveau caractère. S'il y a des caractères à 
supprimer, les passer par mouvement de curseur ; 
s'il y en a à insérer, aller (par curseur) à une 
ligne vide de l'écran et taper les caractères vou- 


lus. 
4 - Revenir à la ligne concernée par curseur pour co- 
pier par 'Ctrl' À les caractères à garder . Termi- 





ner par ‘'Return'. 


On peut modifier une ligne en autant d'étapes qu'on 
veut : il suffit de revenir sur la ligne, y faire d'au- 
tres modifications après avoir tapé 'Return'. Il est 
conseillé de vérifier par LIST que les modifications 
souhaitées ont bien été faites. 


- Modification du numéro d'une ligne : C'est un cas 
particulier du précédent : c'est maintenant le numéro 
qu'on change, mais attention ! Une fois qu'on a tapé 
‘'Return' il y a deux lignes identiques, une à l'ancien 
numéro et une autre au nouveau. Cela peut être spécia- 
lement précieux pour économiser le temps de frappe 
lorsque l'on a toute une série de lignes très voisines 
à taper. 


Supposons que l'on veuille avoir (c'est un cas 
d'école) : 


59 GOTO 1ÿ 
79 GOTO 1ÿ 
99 GOTO 1ÿ 
95 GOTO 12 


On tapera : 
59 GOTO 19 ‘Return! 
puis, curseur sur le 5 : 
7 des 'Ctrl' À 'Return' 
puis, curseur sur le 7 : 
9 des ‘'Ctrl' À 'Return' 
puis, curseur sur le 9 : 
95 des ‘Ctrl' À jusqu'au ÿ 2 'Return' 


A chaque fois, on n'aura sur l'écran que la dernière 
ligne tapée, mais en faisant LIST on s'aperçoit que 
l'on dispose de toutes les lignes voulues. 
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Exercice 3.4 


Modifier le programme A-1 pour qu'il calcule, non pas 
la surface du cercle, mais le volume de la sphère de 
rayon R. 


Nous donnons l'exercice moins pour le calcul que pour 
s'entraîner à effectuer la modification. On voit faci- 
lement qu'il suffit de changer le nom du résultat en V 
(il serait possible de garder S, mais nous voulons des 
identificateurs parlants). Donc, 3% doit devenir 39 
PRINT V, tandis que 29 doit devenir 29 V-4/3%xPI*xRt3. 


La modification de 3% est évidente, on amène le cur- 
seur sur le S par 'Ctrl' À et on tape V 'Return'. 


Attention : tout caractère non copié par 'Ctrl' À est 
oublié. —_. 


Pour l'instruction 2ÿ, on amène par ‘Ctrl' À le cur- 
seur sur le S qu'on change en V, puis, curseur sur le P, 
on va à un endroit vide de l'écran taper 4/3*x. On re- 
vient sur le P par curseur et on termine la ligne par 
'Ctrl' À jusqu'au 2 sur lequel on tape 3. 





Question : Ne manque-t-il pas quelque chose ? : si ! le 
"Return'. 


Bien sûr, il aurait mieux valu modifier le programme 
A-2 ; c'est l'objet de l'exercice 3.5. 


Exercice 3.5 


Faire la même modification sur le programme A-2. 


Tout devrait bien se passer. 


Exercice d'entraînement 3.6 


Faire le passage du programme A-2 au calcul du volume 
du cylindre. 
(Exercice 2.1, solution en annexe). 


Avant de voir les commandes qui concernent les casset- 
tes, nous passons à un autre exercice qui va nous per- 
mettre d'aborder une autre sorte de problèmes. 
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Exercice 3.7 


Ecrire un programme analogue au programme A-2, mais 
qui, cette fois, demande la surface d'un cercle et en 
déduise le rayon. 


Le problème est que, cette fois, nous n'avons pas une 
formule connue "toute cuite" à appliquer. Il faut la 
chercher, encore que, pour cet exercice, ce ne soit pas 
trop sorcier. 


Néanmoins, et ce sera vrai dans tous les problèmes 
autres que ceux qui sont totalement évidents, l'ordina- 
teur n'est pas capable de trouver tout seul la solution 
d'un problème. Il faut la lui donner sous forme d'une 
suite ordonnée d'opérations à effectuer. Une telle suite, 
qui n'est rien d'autre qu'une recette, s'appelle chez 
les informaticiens savants un algorithme. 


Il est presque toujours plus difficile de trouver 
l'algorithme résolvant un problème que de programmer 
cet algorithme une fois qu'on l'a trouvé. 


Revenons à notre exercice. On trouve facilement que 
la formule à appliquer est R = YS/PI. Comment allons- 
nous traduire la racine carrée ? Eh bien nous avons le 
choix, ce qui arrive souvent en programmation, entre 
1.5 (puissance 1/2), ou appeler la fonction méthématique 
SQR (racine carrée) qui est une de celles dont on dis- 
pose en Basic. D'où deux solutions pour l'instruction 
29 du programme A-3. 


Programme A-3 


19 INPUT "SURFACE DU CERCLE":S 
29 R = SQR(S/PI) 

39 PRINT "RAYON = ",R 

4ÿ GOTO 1ÿ 


Autre forme de 2% : 
29 R = (S/PI)t.5 


Rangement d'un programme sur cassette 


(Si vous disposez d'un magnétophone et avez fait le 
branchement décrit dans la notice, ce qui est vivement 
recommandé). 


Voici maintenant des commandes spécialement utiles. 
En effet, jusqu'ici nous n'avons écrit que des program- 
mes très courts et peu nombreux. Néanmoins, même ainsi, 
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il est fastidieux de les taper plusieurs fois, et cela 
entraîne des risques d'erreurs. Or si nous faisons NEW, 
ou si nous éteignons Ll'ORIC simplement pour aller nous 
coucher, le programme est perdu (la mémoire vive RAM 
perd ses informations lorsqu'elle n'est plus alimentée). 
Heureusement, il y a les cassettes sur lesquelles on 
peut sauver des programmes et les relire par la suite. 


Sauvegarde 


Munissez-vous d'une cassette vierge rebobinée (sinon, 
vous la rebobinez avec la touche REW du magnétophone). 
Notons, à ce propos, qu'il est recommandé d'utiliser 
des cassettes courtes (il vaut mieux, étant donné les 
temps de lecture, ne ranger que peu de programmes sur 
chaque cassette) et de bonne qualité. 


Supposons que nous ayons un programme précieux en mé- 
moire, par exemple le programme A-3 que nous venons de 
faire. Placez la cassette dans le magnétophone et tapez : 


CSAVE "RAYON-CERCLE" 


Si votre magnétophone n'a pas de télécommande, il 
faut préalablement appuyer sur les touches RECORD et 
PLAY (simultanément). S'il a une télécommande convena- 
blement connectée, vous ne vous souciez de rien et 
l'ORIC affiche 


SAVING RAYON-CERCLE 


Lorsque Ready et le curseur réapparaissent, c'est fini : 
le programme a été écrit sur la cassette sous le nom 
que nous avons donné. 


Remarque : Le nom peut comporter jusqu'à 17 caractères. 
Il peut contenir des points ou des tirets. 


Chargement 


Pour renvoyer en mémoire un programme préalablement 
sauvegardé sur une cassette, on utilise la commande 
CLOAD “RAYON-CERCLE" (après avoir mis le magnéto en lec- 
ture). 


L'ORIC répond : 


Searching (recherche) 
puis Loading "nom" (lorsqu'il a trouvé le programme 
cherché) 


enfin Ready 
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On peut alors lister le programme ou l'exécuter par 
RUN. 


Si l'on obtient le diagnostic ?FILE ERROR-LOAD ABORTED, 
il faut rebobiner et réessayer, puis refaire l'essai 
avec une autre cassette sur laquelle on aura pris la 
précaution de faire une seconde sauvegarde. En cas 
d'échec : il faut employer la version lente des commandes 
magnéto 


CSAVE "nom'",sS et CLOAD ‘"nom'",s 


Noms abrégés 
On peut ne pas spécifier de nom dans la commande 
CLOAD. Par exemple, on aurait pu écrire : 
CLOAD !'''! ou CLOAD '''!',5S 


L'ORIC chargera le premier programme rencontré sur la 
bande. 


Chargement et exécution réunis 


Si la commande CSAVE a été de la forme 
CSAVE "nom'",S,AUTO ou CSAVE ‘“nom'",AUTO 


le programme est exécuté automatiquement (c'est-à-dire 
sans qu'il y ait besoin de faire RUN) après son charge- 
ment. Le "AUTO" n'a pas à figurer dans la commande 
CLOAD. 
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RECAPITULATION 


Nous avons maintenant vu les instructions les plus 
fondamentales des programmes : 


arithmétique 
INPUT - PRINT 
GOTO - END 


Nous avons vu les commandes les plus utiles : 


RUN et LIST 
CSAVE et  CLOAD 


ainsi que les procédures de correction des programmes. 


Si l'énoncé de certains des mots-clés précédents 
n'éveille aucun écho en vous, nous vous conseillons, 
avant de poursuivre, de relire les pages qui les con- 
cernent. 


Nous sommes maintenant prêts à aborder la seconde 
série de programmes qui va nous permettre - toujours 
par variantes successives - d'augmenter notre "arsenal" 
d'instructions Basic. 
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CHAPITRE IV 
BASES DE LA PROGRAMMATION 


Si vous voulez bien, nous allons jouer à un jeu. Les 
programmes de jeu forment une classe importante parmi 
les programmes pour P.S.I. Tous ne sont pas débiles : 
certains sont très élaborés et souvent très amusants. 
D'autre part, la présentation sous forme de jeu de cer- 
tains programmes pédagogiques les rend plus attrayants 
donc plus efficaces. Nous souhaitons qu'à la fin de la 
lecture de ce livre, vous soyez capables, vous aussi, 
d'en écrire. 


Pour le moment, notre jeu sera au départ un peu simple, 
mais il s'améliorera progressivement. Il s'agit du jeu 
"devinez un nombre". Le programme connaît un nombre 


(fixe) et il lit la devinette du joueur ; si le joueur 
a bien deviné, il affiche "gagné", sinon il affiche 
"perdu". 


L'INSTRUCTION IF 


Pour réaliser ce qui est demandé, de quoi avons-nous 
besoin ? D'une instruction capable de tester une condi- 
tion (qui sera ici nombre donné par le joueur = nombre 
caché), c'est-à-dire apprécier si elle est vraie ou 
fausse ; si elle est vraie, d'aller à une certaine par- 
tie du programme (ici, afficher "“gagné") sinon d'aller 
à un autre endroit du programme (ici afficher "perdu"). 
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Eh bien cette instruction existe, c'est l'instruction 
IF. Sa forme principale est 


n IF condition THEN instruction 


Mhz ss 
Le comportement est le suivant : si la condition est 
vraie, on effectue l'instruction qui suit THEN, puis 
l'instruction de la ligne suivante n' : si la condition 


est fausse, on passe directement à l'instruction de la 
ligne n'. 


Un cas particulier est celui où l'instruction qui suit 
THEN est un GOTO : 


n IF condition THEN GOTO n'' 
n ! 


n'! 


A ce moment, si la condition est vraie, on va en n'' ; 
si la condition est fausse, on va en n'. 


En fait, il suffit d'écrire l'un des deux mots THEN 
ou GOTO. 
Exemple : 19 IF À = B THEN 59 
ou 29 IF A+B<C GOTO 199 


Nous sommes prêts à écrire notre première version du 
programme "devinez un nombre". 


Programme B-1 


29 INPUT"DEVINEZ UN NOMBRE":A 
39 IF A=3.25 GOTO 6ÿ 

49 PRINT'"'PERDU!" 

59 END 

69 PRINT'GAGNE" 


Les instructions INPUT et PRINT sont déjà familières. 
L'instruction END fait terminer le programme une fois 
qu'on a inscrit PERDU ! Il n'y en a pas besoin après 6ÿ 
puisque c'est la dernière instruction du programme. 


L'instruction IF que nous employons est du troisième 
type : IF...GOTO. Le nombre à deviner est 3.25 ; le nom- 


bre proposé lu au clavier est À : la condition à tester 
est "Est-ce que À est égal à 3.25 ?" Eh bien, cela 
s'écrit À = 3.25. C'est simple. 


Du point de vue du fonctionnement du jeu, il y a beau- 
coup d'objections à formuler sur le programme B-1. Nous 
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le ferons bientôt, et cela nous aidera à découvrir de 
nouvelles instructions Basic. Mais la forme présente 
nous a permis d'utiliser l'instruction IF, qui est une 
des plus importantes de Basic, et nous avons encore 
quelques éléments à voir sur cette instruction, en par- 
ticulier les différentes conditions qui peuvent suivre 
le IF. 


La première forme de condition est : expression arith- 
métique relation expression arithmétique, comme 
2*A + 4<Bt3. 


Chacune des expressions arithmétiques est évaluée 
avant l'examen de la relation. Les opérateurs de rela- 
tion utilisables sont : 


= égal <> différent 

< inférieur <= inférieur ou égal 
: 

> supérieur >= supérieur ou égal 


"différent" s'écrit inférieur ou supérieur, ce qui ne 
manque pas de logique. 


La deuxième forme de condition est une combinaison de 
relations de la première forme à l'aide des opérateurs 
logiques AND (et), OR (ou), et NOT (non). 


cl AND c2 est vraie seulement si les conditions cl et 
c2 sont toutes les deux vraies ; 


cl OR c2 est vraie dès qu'une au moins des conditions 
cl ou c2 est vraie ; 


NOT c est vraie si c est fausse, et fausse si c 
est vraie. 


- aller en 199 si à la fois C est supérieur à 2*A+4 et 
B est inférieur à 3 : 


IF C>2*xA+4 AND B<3 GOTO 199 
- imprimer OUI si X est extérieur à l'intervalle [1,20 
c'est-à-dire X<1 ou X>=2) : 
IF X<1 OR X>=2 THEN PRINT'OUI" 


Exercice 4.1 


Reprenez le programme A-3. Essayez de fournir une 
surface négative. 


On obtient le message 
? ILLEGAL QUANTITY ERROR IN 2ÿ 
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ce qui est normal, puisque l'on cherche à calculer la 
racine carrée d'un nombre négatif : il n'y a pas de cer- 
cle de surface négative. 


Un programme bien écrit doit se garantir contre de 
telles erreurs de l'opérateur : par exemple, un pro- 
gramme de jeu d'échecs doit vérifier que le coup propo- 
sé par le joueur est légal. 


L'objet de l'exercice est d'installer une telle garan- 
tie dans le programme A-3 : ajoutez au programme une 
instruction qui renvoie en 1f demander une autre sur- 
face tant que la surface fournie n'est pas positive. On 
peut également, en outre, imprimer un message de protes- 
tation. 


IF... THEN... ELSE 


Lorsque le test a la forme d'une alternative (st 
condition alors faire ceci sinon faire cela) l'ORIC per- 
met d'éviter les GOTO que donnerait la traduction 

IF condition GOTO n 
cela : GOTO p 

n ceci 

p suite. 


On peut en effet écrire : 
IF condition THEN ceci ELSE cela 


"ceci" et "cela" doivent être des instructions Basic 
(ou cf p 73, des suites d'instructions séparées par des 
‘deux-points') 


Exemple : IF A<B THEN PRINT "A<B'" ELSE PRINT "A>B" 


Le seul impératif est que tout l'ensemble forme une 
seule ligne Basic. Après l'exécution de la ligne, on se 
retrouve à la ligne suivante après avoir fait l'une des 
deux branches de l'alternative. Ainsi, la séquence 


19 IF A<B THEN PRINT "A" ELSE PRINT "B" 
29 PRINT "C" 


fait imprimer soit A soit B 
C C 


Ce n'est que si l'une des branches contient un GOTO 
qu'on ne se retrouve pas à la ligne suivante. 
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Exemple : Calculez Z = valeur absolue de X de trois fa- 
çons différentes : 
1 2 3 
59 Z=ABS(X) 59 Z=X 59 IF X<@ THEN Z= 
6@ IF X<@ THEN Z=-Xx -X ELSE Z=X 


Bien sûr, notre programme B-1 pourrait s'écrire 
PROGRAMME B-16 


29 INPUT "DEVIHEZ UH HOMBRE "à 
3@ IF Ax3.25 THEH PRINT'GAGNE" ELSE PRIMT'PERCU" 


Nous venons maintenant de voir notre première instruc- 
tion véritablement élaborée. En effet, elle rend l'ORIC 
capable de prendre des décisions en fonction des diffé- 
rentes situations qui peuvent résulter des données. En 
fait, c'est vous qui prenez les décisions en préparant 
le programme, et si jamais vous oubliez un cas possible, 
le programme se comportera incorrectement si le cas se 
trouve réalisé. 


De décision en décision, le cheminement peut se rami- 
fier de façon complexe. 


Les ordinogrammes, encore appelés organigrammes, peu- 


vent alors être nécessaires pour s'y retrouver. 


Avant de passer aux améliorations de notre programme 
de jeu, nous allons étudier l'ordinogramme du programme 
B-1. 






Imprimer "devinez un nombre!" 
Lire À au clavier 







Imprimer "perdu" Imprimer "gagné" 
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Il est formé de blocs, qui spécifient les différentes 
opérations, reliés entre-eux par des flèches qui repré- 
sentent l'ordre de succession des opérations. La forme 
même du bloc indique au premier coup d'oeil la nature 
de l'opération. 


Parmi les formes de bloc, on distingue essentielle- 
ment 


- le rectangle, qui a une seule entrée et une seule 
sortie et représente toute opération impérative : 


- le losange, qui a une seule entrée, mais deux ou plu- 
sieurs sorties, et représente les opérations de test. 


On utilise les signes spéciaux C) et eo pour marquer 
le début et la fin du traitement. 


Il est toujours recommandé de tracer l'ordinogramme 
avant d'entreprendre la rédaction du programme : ce 
n'est jamais une perte de temps. 


Exercice 4.2 


Tracez l'ordinogramme du programme A-2. Tracez l'ordi- 
nogramme de l'exercice 4.1. 


Exercice 4.3 


A quels mots-clés Basic, vus jusqu'à présent corres- 
pondent les blocs ou signes 


TE met À 6 


PERFECTIONNEMENTS DU PROGRAMME B 


Il faut bien avouer que, dans sa première version, le 
jeu n'est pas particulièrement intéressant. Mais nous 
sommes maintenant en mesure de l'améliorer. 


La première objection ne sera résolue que tout-à-fait 
à la fin. C'est dommage, car elle concerne la crédibili- 
té même du jeu. 


En effet, il suffit de taper LIST pour avoir le lis- 
ting du programme, et par là-même prendre connaissance 
du nombre à deviner. Nous supposerons un certain temps 
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que le joueur ne connaît pas la commande LIST, ou alors 
qu'il "joue le jeu". 


Il faut noter que cette objection se présente aussi, 
même dans des programmes plus élaborés : par exemple, 
si vous jouez à la bataille navale contre l'ordinateur 
et si vous connaissez bien le programme, vous pouvez 
faire imprimer les variables qui contiennent les coor- 
données des navires adverses. 


Supposant maintenant que vous jouez sans tricher, 
vous allez objecter que le jeu est très difficile, voire 
non équitable : vous avez peu de chances de trouver le 
nombre du premier coup, ce qu'exige le programme. Il 
est clair qu'il faut laisser plusieurs chances au 
joueur. 


Cela peut se faire très simplement : il suffit de 
remplacer l'instruction 59 du programme B-1 par 5 GOTO 
19 et on a maintenant droit à un nombre illimité de ten- 
tatives. 


Malgré cela, le jeu reste bien hasardeux pour deux 
raisons : 


- en cas d'échec, rien ne dit au joueur s'il est loin 
ou près du résultat ; 


- le joueur doit tomber pile sur la bonne valeur, c'est- 
à-dire doit fournir le nombre à la précision près à 
laquelle l'ORIC travaille, soit 10-9 près. 


Nous résoudrons le premier problème en calculant et 
en imprimant à chaque fois le pourcentage d'erreur E 
égal au nombre proposé moins le nombre à trouver, divi- 
sé par le nombre à trouver, le tout multiplié par cent. 


Le pourcentage d'erreur sera imprimé en valeur absolue, 
donc sans indiquer le sens de l'erreur, pour laisser 
une certaine difficulté au jeu. 


En ce qui concerne l'erreur possible dûe au manque de 
précision des PSI on ne comparera pas le nombre proposé 
au nombre à trouver, mais on considérera que la réponse 
est exacte si E, pourcentage d'erreur, est inférieur à 
0,5 %. 


Le problème de précision se pose à chaque fois que 
l'on a des calculs à effectuer. Pour le résoudre, il 
suffit de remplacer un test d'égalité pure du type IF 
À = B par un test sur la valeur de la différence entre 
les deux nombres, du type A-B < seuil, le seuil étant 
l'ordre de grandeur de la précision - ou plutôt de 
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l'imprécision ! - du P.S.I. C'est d'ailleurs en fait la 
valeur absolue de la différence qu'il faudrait tester. 


Notre programme devient : 
FRÜGRANME B-2 


Z& INPUT'DEVINEZ UN HOMBRE":A 
LS Es1GHékABSCA-S. 2525.25 

GG IF E<4.S GOTO &ù 

+4 FRINT'ERREURMSE: "A" 

5 GOTO SE 

S4 FRINT'SAGHE !" 


À la ligne 25, nous utilisons la fonction ABS (valeur 
absolue) qui fait partie de la bibliothèque mathématique 
du Basic de l'ORIC dont la liste complète est donnée en 
annexe. 


Si nous faisons tourner le programme tel qu'il est, 
nous obtenons, par exemple, l'affichage : 


ERREUR 19.769238 % 


Il est bien évident que nous n'avons que faire de tant 
de décimales. Comment les supprimer ? Nous utiliserons 
une autre fonction de la bibliothèque, la fonction INT, 
qui prend la partie entière de l'argument cité entre 
parenthèses. 


Dans l'instruction 4, remplaçons E par INT(E). Cette 
fois nous obtenons un pourcentage entier. Là, c'est trop 
peu. Comment faire pour garder - disons - deux décimales ? 


Pour cela, nous multiplions E par 100 pour faire passe 
les deux décimales que nous voulons garder dans la par- 
tie entière, nous prenons le INT de ce produit, ce qui 
fait disparaître les autres décimales, puis nous redi- 
visons par 100 


INT(E*199)/199 


Telle est l'expression qui vient remplacer E dans 
l'instruction 4% du programme B-2, et nous avons main- 
tenant un affichage satisfaisant. 


, 


Exercice 4.4 
On veut imprimer le nombre X avec D décimales. Ecrire 
l'instruction correspondante en mode direct. 


Pour constituer la version 3 de notre programme, nous 
voulons ajouter encore un petit perfectionnement. Il se- 
rait agréable, lorsque le nombre à deviner est trouvé, 
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d'imprimer le nombre de tentatives qui ont été néces- 
saires. C'est, en somme, le score du jeu. Pour cela, 
nous introduisons une nouvelle variable N, à laquelle 
nous ajoutons 1 à chaque fois qu'une tentative est 
faite sans succès, et que nous imprimons à la fin ; 
d'où le programme B-3 : 


PROGRAMME B-3. 


IHPUT"IEVINEZ Ui HONBRE"; A 
E=1G0+ABSCA-S. 252/3.25 

IF ESU.S GOTO 6% 

N=H+1 

FRIHT"ERREUR"; IHT<E#106)."1G6; "Z" 
GOTO Zù 

FRINT'GAGNE El"; N+1,; "COUPS" 


Pi 


Pa 


Aa 


Ji en Le Di 0 


L'instruction 35 peut sembler paradoxale, mais n'ou- 
blions pas que le signe = n'a pas en Basic le même sens 
qu'en mathématiques. En Basic, il signifie : calculez 
l'expression qui est à droite, dont N + 1, et mettez le 
résultat dans la variable qui est à gauche. Ici, c'est 
la même variable, ce qui est parfaitement licite, et 
cela revient bien à incrémenter N. 


Question : La toute première fois qu'on passe sur l'ins- 
truction 35, on doit calculer l'expression N + 1 ; 
quelle valeur prend-on pour N ? 


Vous avez raison de poser cette question qui soulève 
le problème de L'initialisation des variables. Mais nous 
savons que lorsque l'on fait RUN, Basic met toutes les 
variables - dont N - à ÿ. Or, lorsque l'on commence, on 
a fait @ tentative, donc la valeur initiale automatique 
de N convient. Si, dans un autre problème, on avait eu 
besoin d'une autre valeur initiale que ÿ@, alors il au- 
rait fallu la fournir explicitement dans les premières 
instructions du programme ; ce point est fondamental : 
beaucoup de programmes échouent pour initialisation in- 
correcte de certaines variables. 


On remarque enfin, en 6%, que l'on imprime N + 1 et 
non N : c'est pour comptabiliser la dernière tentative, 
car lorsque le nombre est bon, on ne passe pas sur 
l'instruction 35. 


Exercice 4.5 


Comment faire imprimer quand même N en 69 ? 
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LES BOUCLES FOR...NEXT 


Nous pouvons maintenant nous attaquer à un autre dé- 
faut du programme dans son état actuel : il permet un 
nombre illimité de tentatives. C'est trop, bien sûr. Il 
faut autoriser plusieurs tentatives, mais en nombre li- 
mité, par exemple 5 ou 10. 


Cela peut se faire très simplement. En effet, nous 
avons, à tout moment, une mesure du nombre de tentati- 
ves faites jusque-là : c'est la variable N ;: il suffit 
de la tester. On remplacera, pour ce faire, l'instruc- 
tion 5ÿ par la séquence 


45 IF N<19 GOTO 2ÿ 
54 PRINT "JE REGRETTE.VOUS AVEZ PERDU" 
55 END 


d'où le programme B-4A 

à INPUT"IEVINEZ UN HOMBRE": A 

25 E<1GG#kABSCA-S. 2593.25 

3Q IF E<@G.S GOTO 6 

46 FRINT'ERREUR":IHNTÉE#I LED," UE, 2" 

45 IF H1& GOTO a 

SG FRINT'JE REGRETTE.YOUS AYEZ FERDU" 

5S END 

6 FRINT'GAGHE Ed": H+1,; COURS" 
Dessinons l'ordinogramme correspondant sans trop le dé- 
tailler 





Imprimer 
gagné" 






Non dépassée 






Dépassée 


Imprimer 
MPERDU" 
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Si nous simplifions encore cet ordinogramme pour en 
faire ressortir l'ossature, nous obtenons 





Initialiser N 


Opérations à répéter 
Augmenter N 


Limite 
dépassée ? 







NEXT 






Cette structure, très classique et tout à fait fonda- 
mentale étant donné son utilisation universelle, s'ap- 
pelle une boucle. Mais contrairement aux boucles que 
nous avons vues au début, ici le nombre d'itérations 
est limité d'avance : N joue le rôle de compteur de 
passages sur les opérations à répéter ; on lui donne 
une valeur initiale, puis on effectue le traitement à 
répéter pour les valeurs successives de N tant que la 
limite n'est pas dépassée. 


Le programme B-4A nous prouve qu'on peut réaliser des 
boucles, de façon parfaitement satisfaisante, avec les 
instructions que nous connaissons déjà. Pourtant, étant 
donné l'importance des boucles, Basic offre un jeu 
d'instructions spéciales qui permettent de les implanter 
encore plus facilement. C'est l'ensemble FOR...NEXT uti- 
lisé dans le programme B-4B. 


On voit combien il est facile d'utiliser de telles 
boucles : il suffit d'encadrer les instructions à répé- 
ter (29 à 49 dans notre exemple) par : FOR et NEXT. 
PROGRANME F-45  iü FOR N=1 TO 15 

ne Z@ IHPUT"DEVINEZ UN NOMBRE"; A 
Z2S E=100#ABSCA-3.25)/3.25 
36 IF E<G.S GÜTO 63 
+Q FRIHT"'ERREUR":IHTCE#10G5,'100, "7" 
45 NEXT H 
Sa PRIHT"'IE REGFRETTE.YQOUS AYEZ FERDU" 
55 Er 
GE PRINT'OAGHE EN"; N+1: "COUPS" 


59 


LA DECOUVERTE DE L'ORIC 


- en tête, une instruction FOR, de la forme 
FOR N = valeur de départ TO valeur limite 


ou, en français : 


, 


pour N = valeur de départ jusqu'à valeur limite. 


- à la fin, l'instruction NEXT N qui veut dire passer 
au suivant. Elle incorpore donc à la fois l'incrémen- 
tation de N et le test. 


Evident, n'est-ce pas ? 


Exercice 4.6 
Imprimer une table des carrés et des racines carrées 
des entiers de 1 à 10. 
L'instruction à répéter est d'imprimer sur la même li- 
gne, un nombre N, son carré et sa racine, soit 
29 PRINT N; N*N:; SQR(N) 


Ceci est à faire pour toutes les valeurs de N de 1 à 
10. Soit : 


19 FOR N = 1 TO 1ÿ 
et on ne doit pas oublier de terminer par : 
39 NEXT N 


Exercice 4.7 


Implanter les instructions précédentes, et faire exé- 
cuter. Qu'est-ce qui manque ? 


(Indication : ne concerne pas la boucle). 


EXTENSIONS DE FOR...NEXT 


La forme que nous venons de voir n'est qu'un cas par- 
ticulier de la forme plus générale : 


FOR N = valeur de départ TO valeur limite STEP pas 


STEP annonce le pas d'incrémentation du compteur. On 
met 2, par exemple, si l'on veut que N progresse de 2 en 
2e 
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Exercice 4.8 


On veut faire la même table qu'à l'exercice 4.6, mais 
seulement pour les valeurs paires de N. 


Si on ne met pas STEP et un pas, l'ORIC sous-entend 
un pas égal à 1. 


Les valeurs des bornes peuvent être quelconques et Le 
pas peut être négatif. Par exemple, si on voulait faire 
la même table que précédemment, mais en commençant par 
10, puis 9, 8 etc... on écrirait : 


19 FOR N = 19 TO 1 STEP -1 


On n'est pas obligé de mettre des constantes comme 
bornes : on peut mettre des variables, ou même n'importe 
quelle expression arithmétique. Mais les expressions 
sont évaluées une fois pour toutes lorsque l'on entre 
dans la boucle, même si l'exécution de la boucle fait 
évoluer les variables qui interviennent. 


Ceci est utilisé surtout dans des écritures de la 
forme : 


FOR I = 1 TO N+l ... 
ou FOR I = 1 TO N STEP 2*xK ... 


Rien n'oblige les paramètres à être entiers. Par exem- 
ple, pour étudier une fonction, on peut être amené à 
écrire : 

FOR X = -3.5 TO 4.82 STEP ÿ9.@1 


La valeur limite qu'on donne est la valeur qui ne sera 
pas dépassée pour l'exécution de la boucle ; le test se 
passe exactement comme sur l'ordinogramme du programme 
B-4A : le compteur est modifié et on teste s'il est tou- 
jours compris entre les bornes ; si oui, on réexécute 
la boucle, sinon, on a terminé, et le compteur a une 
valeur hors des bornes. 


Exercice 4.9 


Pour quelles valeurs du compteur sont exécutées les 
boucles suivantes, et quelle est la valeur finale du 
compteur ? 


19 FOR I 1 TO 8.5 STEP & 
5 FOR M 19 TO 3.5 STEP -1 


Le traitement à répéter dans une boucle peut lui-même 
contenir une boucle. On dit qu'on a des boucles imbri- 
quées. 


Won 
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Exercice 4.10 


On veut tracer une table des nombres de 1 à 10, avec 
leurs carrés mais avec 2 couples par ligne. 


Une solution est : 


19 FOR I 1 TO 9 STEP 2 

29 FOR J = ÿ TO 1 

39 PRINT I+J ; (I+J)*(I+J), 
49 NEXT J:PRINT 

59 NEXT I 


le PRINT en 4ÿ assure le passage à la ligne 


La deuxième boucle doit toujours être complètement 
contenue à l'intérieur de la première : 


FOR I FOR I 
OR J FOR J 
F est correct est incorrect 
NEXT J NEXT J 
NEXT I NEXT I 
Remarque : Si en 39 on écrivait PRINT I+J : (I+J)t2, 


l'impression serait troublée par le fait qu'on trouve- 
rait : 


Va 49.0999901 et 9? = 81.9999001 


Pourquoi ? Eh bien c'est parce que l'interpréteur cal- 
cule xY sous la forme : eYlo9X sans faire de cas parti- 
culier pour y = 2, d'où des erreurs d'arrondi. 


’ 


On voit là une des causes d'inefficacité des inter- 
préteurs, alors qu'un programmeur en langage machine 
tient compte du cas particulier qu'il rencontre, et rem- 
place la puissance 2 par une multiplication, plus rapide 


On peut omettre de répéter la variable qui sert de 
compteur dans le NEXT. Ainsi, dans l'exercice 4.6, on 
aurait pu écrire 39 NEXT, et dans 4.10, 4@ NEXT... 59 
NEXT - et le problème de l'ordre ne se posait plus. 


Un couple 49 NEXT J 59 NEXT I peut être remplacé par 
45 NEXT J,I (attention à l'ordre). 


Avec le couple FOR...NEXT, nous venons d'ajouter à 
notre arsenal un des outils les plus efficaces de Basic. 
Il nous reste à voir deux autres éléments de base pour 
lesquels nous revenons à notre programme de jeu, mais 
avant, une autre sorte de boucles permises par Ll'ORIC. 
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LA BOUCLE REPEAT...UNTIL (REPETER. . .JUSQU'A) 


La structure : 19 REPEAT 
20 2 
39 ... 
49 UNTIL condition 
SPAS 


fait répéter les instructions 2% et 39 (par exemple) 
jusqu'à ce que la condition écrite en 49 soit satis- 
faite ; on passe alors à 5%. 


À la différence de FOR, on ne connaît pas d'avance le 
nombre d'itérations qu'il faudra pour s'arrêter. 


La ‘'condition' a la même forme que dans IF. Il faut 
que les instructions entre REPEAT et UNTIL aient des 
chances de faire évoluer la condition, sinon on ne 
s'arrêtera jamais. Si l'on arrive au REPEAT alors que 
la condition d'arrêt est déjà satisfaite, il y aura 
quand même une itération d'effectuée. 


19 FOR I = 1 TO 19 STEP K 
54 NEXT 


peut s'écrire : 


5. T=1 
19 REPEAT 


59 I=I1+K 
69 UNTIL I>1ÿ 


11 faut faire figurer l'incrémentation explicitement... 


Le programme B-1 avec nombre illimité de tentatives 
peut s'écrire 


19 REPEAT 
29 INPUT À 
39 UNTIL A=3.25 
4ÿ PRINT ‘"GAGNE" 


Bien sûr, on peut se passer de REPEAT...UNTIL puis- 
qu'elle peut être simulée par d'autres instructions 
comme on l'a vu, mais elle offre une écriture extrême- 
ment parlante. Son emploi a bon escient est donc recom- 
mandé. 
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L'HORLOGE TEMPS REEL 


Ce qui manque dans notre jeu actuellement, c'est le 
"sport". Certes, le joueur a droit à un nombre de ten- 
tatives limité, mais ce serait beaucoup plus spectacu- 
laire si le temps alloué pour deviner le bon nombre 
était limité. 

L'ORIC a ce qu'il faut pour cela. En effet, il possède 
une horloge temps réel, ce qui est intéressant pour sa 
catégorie de prix. 


Mais qu'est-ce qu'une horloge temps-réel, et à quoi 
ça sert ? Bien sûr, une horloge est faite pour donner 
l'heure, mais comment procède-t-on ? 


Dans le cas de l'ORIC l'horloge se comporte comme une 
case mémoire qu'on peut lire (c'est de cette façon que 
l'on obtient l'heure) ; mais cette case mémoire a un 
comportement un peu particulier : tous les soixantièmes 
de seconde, son contenu est diminué de 1 par un proces- 
sus extérieur au microprocesseur, qui fait intervenir 
un oscillateur, des divisions de fréquence et des inter- 
ruptions, et dont nous n'avons pas à nous soucier. 


Tout ce que nous avons besoin de savoir, c'est qu'il 
existe un couple de cases-mémoire d'adresses 630 et 631 
qui forment un nombre de 16 bits n. À la mise sous ten- 
sion, ce nombre vaut 65535 et il est décrémenté tous 
les soixantièmes de seconde (environ). 


n=(639)+256*(631) (les parenthèses signifient "contenu 
de"). 
A tout instant, 65535-n représente le nombre de soixan- 
tièmes de secondes écoulés depuis le dernier passage par 
zéro. Si l'on désire le temps en secondes, on prend 
(65535-n)/6ÿ. 


Oui, mais comment avoir le contenu des adresses 63ÿ 
et 631 ? Basic a ce qu'il faut pour cela. Il offre des 
moyens de lire ou écrire à toute adresse mémoire que 
l'on spécifie. 


e PEEK (x) fournit la valeur comprise entre 0 et 255 
de l'octet d'adresse x. x peut être fourni 
en décimal (Ex. 1999) ou en hexadécimal (si- 
gnalé par #, Ex. #3E8) 


Exemple : PEEK(@) fournit @ car il y a la valeur ÿ à 
l'adresse ÿ de la mémoire. 


Si le programme actuellement en mémoire commence par 
la ligne 19, alors ?PEEK(1283) ou ?PEEK(#593) donne 19. 
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On peut ainsi prendre connaissance du contenu de tout 
emplacement mémoire. Ainsi, pour notre horloge nous 
aurons 


n= PEEK(639) + 256%*PEEK(631) 


Mais l'ORIC a encore mieux. 


e DEEK (x) fournit la valeur combinée : 
PEEK(x) + 256*PEEK(x+1) 


On en a, en effet souvent besoin : à chaque fois qu'un 
nombre de 16 bits est rangé en mémoire dans deux octets 
consécutifs, avec l'octet de poids faible d'abord, com- 
me c'est l'habitude du microprocesseur de l'ORIC, le 
6502. 


Donc notre temps est donné par n=DEEK(63%). Mais il 
nous faut aussi pouvoir écrire dans la mémoire, pour, 
entre autres initialiser un intervalle de temps. 


e POKE x,y écrit à l'adresse x, la valeur y (y doit 
être compris entre 0 et 255, x entre 0 et 
65535). 


Exemple : essayez POKE 4899ÿ,65. Cela fait apparaître 
un À tout en haut de l'écran, car 65 est le code du À 
et 48000 est la première adresse de la mémoire d'écran. 


Si l'on veut mettre une valeur de 16 bits en deux oc- 
tets consécutifs de la mémoire, on dispose, sur l'ORIC, 
d'un POKE double 


e DOKE x,y met en x (partie basse) et x+1 (partie haute) 
la valeur sur 16 bits y. x et y doivent 
être compris entre 0 et 65535 (en fait 65534 
pour x afin que x+1 reste inférieur à 65535). 


Exemple : essayez DOKE ÿ,257 et vérifiez par ?PEEK(Q): 
PEEK(I1) que vous avez bien 1 et 1 (257=1+256*1). 


N.B. Dans les quatre opérations précédentes l'adresse 
peut toujours être fournie sous forme hexadécimale (#...) 
Dans DOKE, la donnée y peut l'être, mais pas dans PEEK 

il n'y a aucun diagnostic mais l'écriture n'est pas 
faite. 


On a donc un moyen facile d'initialiser l'horloge 
temps réel pour mesurer un intervalle de temps : DOKE 
639,65535. 
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Si l'on écrit 
19 DOKE 639,65535 


59 T=65535-DEEK(63%) 


alors T est proportionnel au délai écoulé entre l'exécu- 
tion de 19 et l'exécution de 5% : on a donc une mesure 
de ce délai (pour l'avoir en secondes, il suffit de di- 
viser T par 60). 


On peut, au contraire, générer un délai : supposons 
qu'entre les instructions 1ÿ et 29 on veuille respecter 
un délai d'une minute : on écrit 

19. 


15 DOKE 63ÿ,65535 
16 IF 65535-DEEK(639)<36ÿ9 GOTO 16 
Ds 


En 15, on fixe l'instant de départ. Ensuite, en 16, 
65535-DEEK(639) est le délai écoulé entre 15 et la pré- 


sente exécution du 16 : il change à chaque fois car le 
temps passe. Tant que le délai est inférieur à 3600 
tierces = 60 secondes = 1 minute, on réexécute 16. Mais 


le délai avance sans cesse : il finira par être à 1 mi- 
nute, et alors on passera en 2ÿ. 


Notez que l'ORIC a un moyen plus simple pour cela 
WAIT x produit une attente de x centièmes de seconde. 
On pouvait donc écrire 


16 WAIT 6ÿ@Q 
C'est donc l'horloge temps réel qui va nous servir 
pour limiter le temps alloué au joueur. 


Comment ? C'est tout simple. On va, au début du jeu, 
initialiser le temps écoulé à ÿ 


5 DOKE 63ÿ,65535 


puis, à chaque tentative du joueur, on va tester si le 
temps n'est pas dépassé 


15 IF 65535-DEEK(63@)>729@ GOTO 5ÿ 


Exercice 4.11 


Quel est le temps alloué au joueur par l'instruction 
15 ? 
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On arrive donc au programme B-5 
FROGRAMME 8-5 


5 DOKE 630,6993 

1a FOR HNzl TO 14 

15 IF 65535-DEEK(63@ 127208 GOTO 59 

24 INPUT'DEVINEZ UH HOÜMBRE" : A 

25 Ex 1A0XARSE A-S, 255,25 

38 IF E<4.5 GOTO 69 

44 PRIHT'ERREUR "Ai IHTE EXT GE LEE en 

45 NET H 

sé PRINT'JE REGRETTE., VOUS AVYEZ PERCU" 

5 END 

SA PRIHT'GAGHE EH "iMi "COUPS ET MS THTE ESS SSS-DEERE SA 4 5 
“és SECONDES" 

1808 CALLHEDE I : LLIST:LPRINT:LPRINT :LLIET : CALLRECCT 


On a également incorporé à la ligne 6ÿ l'impression 
du temps mis par le joueur pour trouver la solution. 


Exercice 4.12 


Reconstituer l'ordinogramme du programme B-5. 


Exercice 4.13 


Modifier l'instruction 6ÿ pour imprimer le temps au 
1/100ème de seconde (comme pour les compétitions de ski). 


Il reste un petit perfectionnement à apporter : lors- 
qu'on imprime “perdu", il serait bon de distinguer si 
c'est par dépassement de temps ou par trop grand nombre 
d'essais. C'est le but de l'exercice suivant. 


Exercice 4.14 


Lorsque le joueur a perdu, imprimer la cause de 
l'échec, temps ou nombre d'essais. 


INSTRUCTION STOP, TOUCHES ‘Ctrl' C, COMMANDE CONT 


Notre programme de jeu est maintenant arrivé à un bon 
niveau de complexité. Par conséquent, des difficultés 
peuvent se présenter pour en effectuer la mise au point. 
Comment l'ORIC nous aide-t-il à les résoudre ? 
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Le premier outil est constitué par les messages d'er- 
reur imprimés par l'ORIC en cas de situation anormale. 
Par exemple, si jamais vous appelez la fonction SQOR avec 
un argument négatif, vous aurez le message : 


2ILLEGAL QUANTITY ERROR IN numéro d'instruction. 


puis, Ready. est affiché, ce qui indique que l'ORIC est 
prêt à accepter une commande en mode direct. 


La commande directe la plus judicieuse à entrer dans 
un cas semblable est PRINT certaines variables. En effet, 
lors d'un arrêt de cette sorte, toutes les variables du 
programme sont conservées, vous pouvez donc demander 
leur impression en mode direct. Par exemple, si notre 
racine carrée à argument négatif dépend d'une variable 
X, nous taperons ?X. Là, nous voyons que X n'a pas la 
valeur que nous escomptions. Nous pouvons alors demander 
le LIST de l'instruction qui calcule X. Nous voyons 
alors qu'il manque une opération, et nous sommes prêts 
à corriger l'instruction. 


Attention, à partir du moment où nous faisons la moin- 
dre modification au programme, les variables ne sont 
plus conservées. Nous avons donc intérêt à examiner le 
plus possible de variables avant de commencer les cor- 
rections. 


Tel est le scénario habituel de correction des erreurs. 
Les messages d'erreur sont listés en annexe, avec une 
tentative d'analyse de leurs causes les plus fréquentes. 


Le procédé est différent s'il ne se produit aucune 
erreur suscitant un message alors que les résultats sont 
faux. Comment faire dans ce cas ? À ce moment, on va 
subdiviser le programme en petites étapes, entre les- 
quelles on va insérer des instructions STOP. Par exemple, 
si un programme a deux étapes, la première de 1ÿ à 5% 
et la seconde de 6ÿ à 159, on intercalera un 55 STOP. 


Lorsqu'on arrivera en 55, l'ORIC imprimera : 


BREAK IN 55 
Ready 


et s'arrêtera. 

Notons déjà que le fait d'obtenir une telle impression 
signifie que la première étape s'est déroulée jusqu'au 
bout. Correctement ? Pour le savoir, puisque l'ORIC est 


arrêté, il vous suffit de demander l'impression directe 
des variables stratégiques. 


Supposons que tout soit correct. Nous voudrions main- 
tenant exécuter la deuxième étape. Eh bien, pour cela, 
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nous disposons de la commande CONT, qui veut dire "con- 
tinuez, maintenant que j'ai fait ce que je voulais lors 
de l'arrêt". Attention, vous ne pouvez employer CONT si, 
au cours de l'arrêt, vous avez modifié le programme. 





Il y a encore un cas possible. Supposons que, dans 
l'exemple ci-dessus, on n'obtienne jamais l'affichage 
de BREAK IN 55. Cela veut dire que, lors de la première 
étape, le programme entre dans une boucle sans fin. Com- 
ment savoir où on en est ? Il suffit d'appuyer sur les 
touches ‘'Ctrl' et C. Cette combinaison simule une ins- 
truction STOP dans la ligne en cours d'exécution au mo- 
ment où l'on appuie : on obtient le message BREAK IN 25 
(par exemple). On relance l'exécution par CONT. L'examen 
de quelques variables et un listing de la zone du pro- 
gramme indiquée par le BREAK IN permettent, en principe, 
de dépister l'erreur. 


Un autre outil de dépannage est tout simplement 
d'ajouter, à intervalles réguliers, l'impression des 
principales variables : il suffira ensuite, lorsque le 
programme sera au point, de supprimer les instructions 
d'impression superflues. 


LA "TRACE" 


Un dernier outil, bien pratique, de dépannage est ce 
qu'on appelle la "trace". Lorsqu'elle est activée dans 
une portion de programme, à chaque fois que l'on passe 
sur une ligne Basic, le numéro de cette ligne est systé- 
matiquement imprimé. On peut donc facilement suivre par 
où on passe, donc voir si un test s'effectue bien, ou 
si l'on boucle. On active la trace par TRON et on la 
desactive par TROFF. 


Exemple : le programme (idiot) suivant 


19 TRON 
29 REPEAT 
39 UNTIL I1>1ÿ 


affichera [29] [39] [39] [39]... indéfiniment. 
Si vous ajoutez 25 I=1+3 vous aurez : 


[29] puis 4 couples [25] [39]. 
Comme les impressions de trace troublent les impres- 
sions, on délimite les portions du programme soumises à 


la trace en les entourant de TRON...TROFF, qu'on suppri- 
mera une fois le programme au point. 
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RECAPITULATION 


Ce chapitre nous a permis de voir les outils de base 
du programmeur 


- les instructions fondamentales IF et FOR 
- la manipulation de l'horloge temps réel de L'ORIC 


- quelques aides à la mise au point des programmes. 


Nous sommes maintenant parés pour aborder les tech- 
niques élaborées de programmation. 


Question : Quelle est la différence entre STOP et END ? 


La seule différence est que STOP fait imprimer le mes- 
sage BREAK IN... alors que END ne le fait pas. 


On peut également reprendre par CONT après une ins- 
truction END. 
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CHAPITRE V 
PROGRAMMATION EVOLUEE 


INSTRUCTIONS DATA, READ et RESTORE 


Notre programme de jeu va maintenant nous conduire à 
des techniques plus sophistiquées. 


Supposons que l'on veuille jouer à plusieurs. Il nous 
faut donc maintenant une série de nombres à deviner. En 
effet, si le joueur N° 3 a vu que les deux précédents 
avaient à deviner 3.25, il n'aura pas trop à se creuser 
les méninges ! 


Le programme B-6A donne une solution. Pour simplifier, 
nous avons supprimé la limite sur le nombre d'essais au- 
torisés, mais, bien sûr, nous avons laissé la limitation 
du temps. 


Attention : Si vous avez laissé en mémoire le précédent 
programme B-5, vous avez intérêt à effacer la mémoire 
avec la commande NEW avant de taper le programme ci- 
dessous. Nous avons, en effet, renuméroté les lignes et 
la frappe superposée de B-6A sur B-5 donne une "salade" 
inintelligible. Cette renumérotation a pour but de re- 
donner un peu d'air au programme pour permettre les fu- 
tures adjonctions et modifications. 


PROGRAMME E-éf 


14 RERD € 

24 DOKE 690.:65333 

38 IF 63335-DEEK( 639 2;7290 
4Q IHPUT"'GQUEL NOMBRE FROPO 
SA Es1AGxABSE A-C IC 


ee 


5 


GOTO 39 
EZ-YQUS" A 
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66 IF E<4.5 GOTO 118 

7@ FRINT'ERREUR "3; INTCE#189 53-122; "%" 

8Q@ GOTO 34 

9Q PRIHT'TROF TARD! LAISSEZ LA PLACE AU JOUEUR SUIVANT" 

1aa GOTO 18 

110 PRIHT'GAGNE EH "3 IHTCC65535-DEEK 6305 3-,6 23/1009; 
"SECOHDES" 

12Q GOTQ 18 

208 DATA 3.25,7,69,2,121,449,:09.875, 16 

219 DATA 5.8,219.78.31,901.%,931,:4.168.2,7 

Deux instructions nouvelles apparaissent dans cette 
version : READ et DATA. 


DATA sert simplement à spécifier une liste de cons- 
tantes séparées par des virgules ; l'instruction DATA 
n'est considérée qu'en relation avec une instruction 
READ ; sinon elle est "transparente" pour le programme. 

On peut placer une instruction DATA n'importe où dans 
le programme : lorsque Basic arrive dessus, il n'en fait 
rien et il passe à l'instruction suivante. Ainsi, 299 
aurait pu être numéroté 55, et 219 aurait pu être numé- 
roté 75, par exemple. L'exécution serait quand même 
passée directement de 59 à 69 et de 79 à 89. Les données 
prises n'auraient pas été altérées. Ce qui compte, c'est 
l'ordre des différentes instructions DATA et l'ordre des 
données à l'intérieur d'une même instruction DATA. 


Au départ du programme (juste après le RUN),1la pre- 
mière donnée du premier DATA sera prise lors du premier 
READ exécuté. Puis, au fur et à mesure de l'exécution 
des READ successifs, la deuxième donnée du premier DATA, 
puis la troisième etc. puis la première donnée du deu- 
xième DATA et ainsi de suite. 


Dans notre exemple, comme il y a un READ à chaque nou- 
veau joueur, les nombres successifs à chercher seraient 
3.25, puis 7.63, puis 2 etc. soit 14 possibilités dif- 
férentes. 


Que se passe-t-il s'il y a plus de 14 joueurs ? Eh 
bien il y a une erreur : si l'on essaie un READ alors 
que la dernière donnée du dernier DATA a été "lue", le 
message ?OUT OF DATA ERROR IN... est affiché par l'ORIC. 


L'instruction RESTORE nous fait contourner l'obstacle : 
elle permet, en effet, de revenir au début des DATA. 
C'est-à-dire qu'après un RESTORE, un READ obtient de 
nouveau la première donnée du premier DATA puis... etc. 
Ici, nous allons donc reparcourir la même série de nom- 
bres à deviner tous les 14 joueurs. 
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Pour cela, nous avons besoin d'une variable J, qui va 
contenir le numéro de joueur. Quand ce numéro deviendra 
14 ou divisible par 14, il faudra faire un RESTORE. 


Mais, comment voit-on que X est divisible par Y ? 
Très simple : si X est divisible par Y, le quotient X/Y 
est égal à INT(X/Y) puisqu'il est entier. D'où le pro- 
gramme B-6B : 


PROGRAMME E-6B 


18 JeJ+i: PRINT "JOLEUR HO. "5 

20 READ C: DOKE 630,655335 

30 IF 6553S-DEEKC 6230227294 GOTO 78 

49 IHFUT'GQUEL NOMBRE PFROPOSEZ-VOUS" ; A 

J0 E=1G2#ABSCA-C)/C: IF E<g,5 GOTO 9@ 

60 FRIHT"'ERREUR ": INTCE#198@53/19@:"%": GOTO 3@ 

7@ PRINT'TROP TARDI LAISSEZ LA PLACE AU JOUEUR SUIVANT" 

F5 IF IHTCJ/144=J/14 THEN RESTORE 

€&@ GOTO 18 

90 PRINT'GAGMNE EH "3 INTÉC6SS3S-DEEKC 690 1 1-,6 2108; 
"SECONDES" 

108 GOTO 73 

208 DATA 5.25,7.63,2,121,449,0.075,18, 5.8 

219 DATA210,78,31,991.5,31,4,18,2.7 


Une variante supplémentaire, par rapport au programme 
B-6A, vient de ce qu'il y a plusieurs instructions à 
certaines lignes. On peut, en effet, mettre plusieurs 
instructions par ligne à condition de les séparer par 
le caractère deux-points (:). Cela rend les programmes 
plus compacts, mais aussi moins lisibles. 


Bien entendu, si la ligne "l" renferme plusieurs ins- 
tructions, un GOTO 1 conduira à la première, pas au mi- 
lieu de la ligne ! Donc si une instruction doit être 
cible d'un GOTO ou d'un IF, elle doit être seule sur sa 
ligne, ou en tête de ligne. 


Autre variante : le nombre 5.8 est passé du début du 
deuxième DATA à la fin du premier. Cela ne change abso- 
lument rien à l'ordre des données qui seront prises en 
compte. 


Exercice 5.1 


Une autre méthode pour éviter l'épuisement des données 
serait d'ajouter, en fin de série, une donnée bidon dif- 
férente des nombres qu'on veut traiter, par exemple 
99999, et que l'on teste : si on la trouve, on fait RESTORE. 
Réalisez une version du programme qui utilise cette méthode. 
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DIM ET TABLEAUX 


Nous abordons maintenant une importante notion qui va 
fortement augmenter la puissance de traitement mise à 
notre disposition. 


Nous jouons toujours à plusieurs joueurs, que nous 
limitons à 14, par exemple. Ce que nous voulons de sur- 
croît c'est qu'une fois que tous les joueurs ont effec- 
tué leur partie, un tableau récapitulatif des scores 
obtenus, en nombre de secondes, soit affiché. 


Pour ce faire, il faut introduire une nouvelle varia- 
ble : SC. On obtient alors le programme suivant 


PROGRAMME E-7A 


14 FOR Jel TO 14:PRINT "JOUEUR NO, "3; 

20 REAC C: DOKE 639,65535 

34 SCæ(6SS3S-DEEKS 630 19/68: IF SC:18û GOTO 7@ 
48 INPUT"'QUEL NOMBRE PROPOSEZ-VOLS" 4 

50 En1GOXABS A-C)-C: IF E<@.5 GOTO 34 

68 PRIHT"'ERREUR "; INTCE#1@@2-149;"Xx": GOTO 3@ 
7@ PRIHT'TROP TARC! LAISSEZ LA PLACE AU JIOUEUR SUIVANT" 
79 IF INT Jé14ixé14 THEN RESTÛRE 

gg GOTO 149 

90 FRINT'GRGHE EH "3 INTESCX 1840 100: "SECONDES" 
14@ MEXT J 

119 PRINT "SCORE = "SC: EHD 

20Q DATA 3,259:7.693.2,121.449.04, 475,18, 5.8 
214 DATAZ1Q,78.31,901,5,31, 4 18 ET 


Mais cette solution n'est pas satisfaisante. En effet, 
ce programme n'imprimera jamais que le score du dernier 
joueur. Ce dont nous avons besoin, c'est un score pour 
chaque joueur, c'est-à-dire de 14 variables semblables, 
attachées chacune à un joueur J. 


Basic a un outil pour cela. Il permet, en effet, que 
SC soit une variable multiple dont SC(1) sera le premier 
élément, SC(2) le deuxième etc. 


Le numéro de l'élément voulu est mis entre parenthèses 
il s'appelle l'indice. L'indice peut être une variable 
SC(I) est le I ième élément, ou même une expression 
SC(3*I-4). 


Une telle variable multiple s'appelle un tableau. Il 
faut prévenir Basic du fait qu'une variable est un ta- 
bleau et du nombre d'éléments (cela pour réserver de la 
place en mémoire). Cela se fait par une instruction DIM. 
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Pour notre exemple, nous avons : DIM SC(14). En fait, 
ici on réserve la place pour 15 éléments, car l'indice ÿ 
est utilisable. 


Bien entendu, l'instruction DIM doit être exécutée 
avant toute opération sur la variable concernée : en 
revanche, elle ne doit être exécutée qu'une fois. 


L'instruction DIM n'est pas nécessaire tant que la 
valeur maximum de l'indice ne dépasse pas 10 : en effet, 
l'ORIC réserve automatiquement la place pour 10. Si la 
dimension du tableau doit être plus petite que 10, 
l'instruction DIM est quand même utile car elle libère 
de la place. 


Plusieurs tableaux peuvent être dimensionnés à l'aide 
d'une même instruction : DIM A(25), B(5@). 


La valeur maximum assignée à l'indice peut être une 
variable (qui vient d'être initialisée) : DIM A(N). 


Utilisant ces propriétés, nous arrivons au programme 
B-7B 
PROGRAMME E-7ER 


5 Dim SC 14) 
1@ FOR Ji TO 14: PRIHT "IOUEUR HO, "39 
24 READ C: DÜKE 630,65535 
39 SCC Jet 6553S-DEEKC 680 32-68: IF SCC 2128 GOTO FA 
4@ IHPUT'QUEL HOMBRE PROPOSEZ-VOUS" : A 
45 SCC .J ec 6SSSS-DEEK( 650 0 3-68 
SA Es1A0#ABSCA-C)-C: IF E6@,S GOTO SË 
EG FRIHT'ERRELUR "Ai IMTéE#1@@ 53-186: "x": GOTO 34 
7@ PRIHT'TROF TARDI! LAISSEZ LA PLACE AU JOLEUR SUIVANT" 
75 IF INHTéJ/1di=J/14 THEN RESTÜRE 
82 GOTO 14 
9G PRIHT'GAGME EH "3 IMTE SCC 24108 160: "SECONDES" 
128 HEXT J 
114 PRINT "JOUEUR SCORE" : PRINT 
128 FOR Isi TO 14 
139 FRIMT " Mail INTESCE I IMG 184 :HEXT T 
248 DATA 3,245,7,.63,2,121,449.0.079,18, 5.6 
214 DATA&10,78,.31,941.5.31,4.18.&,7 
L'instruction 45 permet de comptabiliser le temps 
d'hésitation à répondre à l'INPUT. 


Nous laissons maintenant notre jeu de côté pour quel- 
ques instants pour voir plusieurs compléments sur les 
tableaux. Vous avez tout intérêt à sauvegarder ce pro- 
gramme sur cassette grâce à l'ordre CSAVE. Ensuite vous 
pourrez effacer la mémoire par NEW, votre ORIC sera dis- 
ponible pour quelques exercices. 
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GARNISSAGE D'UN TABLEAU 


L'instruction d'entrée INPUT peut être mise dans une 
boucle du type : FOR I=1 TO 1ÿ :INPUT A(I) :NEXT I. 


On aimerait bien savoir à chaque instant quel élément 
doit être introduit et avoir des messages imprimés tels 
que : 

A(1)? 
A(2)? etc. 


Comme le message comprend un élément variable (la va- 


leur de l'indice), la forme INPUT "TEXTE'";... ne con- 
vient pas. Il faut utiliser un PRINT qui se termine par 
point-virgule (;) pour taper la valeur sur la même 
ligne 


19 FOR I = 1 TO 1ÿ 
29 PRINT "A(":I:")": 
39 INPUT A(I) 

4ÿ NEXT I 


SOMME ET MOYENNE DES ELEMENTS D'UN TABLEAU 


Les éléments d'un tableau peuvent représenter les dif- 
férentes observations statistiques d'une grandeur, par 
exemple les tailles des différents élèves d'une classe. 
La première opération statistique à effectuer sur une 
distribution est de calculer sa moyenne ; pour cela, il 
faut d'abord en calculer la somme. 


Pour calculer cette somme, nous utiliserons une va- 
riable S initialisée à ÿ et à laquelle, dans une boucle, 
seront ajoutés successivement chacun des éléments 


19 DIM A(N) 
29 REM NORMALEMENT INTERVIENT ICI LA LECTURE 
DES ELEMENTS 
39 S-9 
49 FOR I=1 TO N 
59 S=S + A(I) 
6@ NEXT I 
79 M=S/N 
89 PRINT "SOMME= ";S,'"MOYENNE= ‘";M 


L'initialisation de S à ÿ est effectuée en 39 ; cette 
initialisation est superflue en début de programme ; 
elle peut être nécessaire si on arrive en 39 après avoir 
fait d'autres opérations. 
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En 29 apparaît une nouvelle instruction : REM (abrévia- 
tion de remarque). Elle n'influe aucunement sur la mar- 
che du programme, mais elle permet d'y incorporer des 
commentaires explicatifs, ce qui est souvent utile 
(bien entendu, ces commentaires consomment de la place 
mémoire). 


Exercice 5.2 


Calculer la variance de l'ensemble des éléments A ci- 
dessus. 
E,(Aî-M)? 
V = ————— 
N-1 


Les tableaux sont particulièrement indiqués pour re- 
présenter des vecteurs d'un espace vectoriel sur K. Par 
exemple A(1), A(2), A(3) seront les trois composantes 
du vecteur >» dans l'espace à trois dimensions. On verra 
plus loin que Basic permet aussi la manipulation de ma- 
trices. 


Exercice 5.3 


Etant donné les deux vecteurs U et V d'un espace à N 
dimensions, calculer leur produit scalaire (zu;v;). 


NOMBRES AU HASARD -— FONCTION RND 


Nous sommes maintenant arrivés au moment de résoudre 
un des problèmes qui nous avait le plus préoccupé au dé- 
but de notre jeu : comment faire pour que, même s'il 
triche, le joueur ne puisse trouver d'avance le nombre 
à deviner ? 


Le mieux est que l'ordinateur ne connaisse pas lui- 
même ce nombre à l'avance, c'est-à-dire qu'il le tire au 
sort au moment de l'utiliser. 


Oui, mais comment un ordinateur dont le comportement 
doit être le plus déterministe et le plus prévisible 
possible peut-il donner des nombres aléatoires ? 


A priori, cela semble nuisible. Eh bien, et c'est pa- 
radoxal, il existe des algorithmes qui font appel à des 
calculs bien déterminés, qui donnent ce que l'on appelle 
des séries pseudo-aléatoires, c'est-à-dire des suites de 
nombres bien déterminés, mais ayant des propriétés 
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statistiques telles que l'on puisse considérer que tout 
se passe comme si les nombres avaient été tirés au ha- 
sard. 


Dans ce contexte, le terme "nombre au hasard" ne peut 
s'appliquer à un nombre isolé, c'est seulement au niveau 
d'une suite (nombreuse) de nombres qu'il a un sens. 


A quoi peuvent bien servir de telles suites ? Elles 
servent pour des calculs de simulation dans lesquels il 
faut tenir compte de phénomènes aléatoires. Par exemple, 
supposons que l'on veuille simuler dix ans d'exploita- 
tion d'une propriété agricole. Un des éléments interve- 
nant peut être la production de blé d'un certain champ, 
on sait que, quoi qu'il arrive, cette production est 
comprise entre 10 t (année aux conditions atmosphériques 
défavorables, mauvaises graines etc.) et 15 t (année 
réunissant exceptionnellement tous les facteurs favora- 
bles). 


Pour simuler les aléas dûs à des causes mal connues, 
le mieux est, pour chaque année, de tirer au hasard un 
nombre entre 10 et 15 : ce sera le meilleur moyen d'ob- 
tenir, dans notre simulation sur dix ans, un certain 
nombre de bonnes années et de mauvaises années, repré- 
sentatif de la réalité. 


En fait, ici, on ne tirera pas un nombre réparti uni- 
formément entre 10 et 15 : on cherchera à reproduire une 
loi de probabilité obtenue par observations ou répondant 
à un modèle. 


On voit que les nombres au hasard peuvent être très 
utiles. L'ORIC peut nous en fournir. Il suffit de faire 
Y=RND(X) pour obtenir un nombre au hasard compris entre 
ÿ et 1. | 


Si X est > ÿ, on génère différentes séquences pseudo- 
aléatoires : des appels successifs avec la même valeur 
de X>ÿ, donnent les éléments successifs d'une même suite 
(le nombre obtenu change à chaque appel, il fait partie 
de la même suite). En changeant la valeur de X, on chan- 
ge de suite. 


Le plus souvent, on utilisera RND(1). 


Le nombre obtenu étant compris entre ÿ et 1, c'est-à- 
dire de la forme ÿ.232745, il faudra lui faire subir 
une transformation pour répondre à notre problème. D'une 
façon générale, il faut obtenir une série de nombres Y 
comprise entre deux valeurs À et B. L'expression sui- 
vante permet d'obtenir ces nombres : 


Y= A+(B-A)*RND(1) 
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Appliquons ceci dans le programme B-8 pour obtenir un 
nombre compris entre @ et 19ÿ 


PROGRAMME B-5 


5 INPUT'NOMBRE DE JOUEURS "3;3M :DIM SCCHo 

14 FÜR Jsi TO H'PRINT "JOLEUR HO, "il 

24 Cel+SS4RNDE 12 :DOKE 639,63535 

ga SCC Je CSSSS-DEEKS 630 92-68: IF SC Jor12A GATO 74 
4 IMPUT'QUEL NOMBRE FROPOSEZ-VOUS" A 

45 SC Jet 659SS-DEEKS 690 2 3-60 

5@ E=108#ABS<A-Ca/C: IF E<i GOTO 3@ 

6@ PRINT'ERREUR ";à INHTCE#1992-108;"%": GOTO 36 

79 PRINT"'TROP TARDC! LAISSEZ LA PLACE AU JOUEUR SUTYANT" 
32 SCCJueh :GOTO 198 

30 PRIHT'GAGNE EH "3 IMTÉE SC J5#100 2-10: "SECONDES" 
95 SCC Joel+INTÉÉ 1280-06 JA 

198 MEXT J 

11@ PRINT "JOUEUR SCORE" :PRIHT 

129 FOR Ii TO H 

138 PRIHT " Ml, INTESCC I K19R 0-10 :HEXT I 


Le changement le plus notable est donc dans l'instruc- 
tion 29 où le nombre à chercher est maintenant tiré au 
hasard. On pourrait le rendre encore plus aléatoire (en 
effet, au départ du jeu, on aura toujours la même série 
de nombres) en l'indexant sur le temps, en écrivant, par 
exemple 


7 T=65535-DEEK(63@);:X= T-1WYxINT(T/199) 
29 C=1+99%*RND(1+X) : DOKE 639,65535 


La ligne 7 a pour effet de mettre dans X les deux chif- 
fres de droite du temps. Si T = 2873, INT (T/1#9) est 
égal à 28 et X sera égal à 2873-2800 soit 73. 


Dans ces conditions, selon le temps écoulé depuis la 
mise sous tension, une série différente sera générée. 
D'autres améliorations ont été introduites et ont légè- 
rement facilité le jeu. Par exemple, on a mis la barre 
à 1 %, mais vous avez toute liberté de jouer sur cette 
barre et sur la limite de temps. 


Le nombre N de joueurs est désormais variable ; 

Le score est donné en nombre de points allant de ÿ à 5 
(ÿ si le joueur n'a pas trouvé dans les temps, 5 s'il a 
trouvé très vite). 
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Exercice 5.4 


Mesurer la qualité statistique du générateur de nom- 
bres au hasard de Ll'ORIC. 


Pour cela, nous allons tirer 1999 nombres au hasard, 
compris entre -1 et +1. Calculons ensuite moyenne et 
variance (valeurs idéales ÿ et 1) ainsi que les effec- 


tifs des 19 classes : 3 
[-1,-2);0-4 ,-21...10 ,3]...[8, 1] (valeur idéale 199). 


Le programme suivant est une des solutions possibles 


19 FOR I=1 TO 1949 
29 N=(-1)+2*RND(1) 
39 S=S+N:S2=S2+Nt2 
49 J=I1+INT((N+1)*5) 
59 C(J)=C(J)+1 


69 NEXT I 
79 M=S/1999:V=(S2-19@@xMt2)/999 
89 PRINT'MOYENNE =";M,"VARIANCE ="; V 


99 PRINT'"'CLASSES" 
199 FOR I=1 TO 1ÿ:PRINT C(I)::NEXT 


Attention, il ne se passe rien pendant 1 minute et demie. 
Soyez patient !... 


TABLEAUX MULTIDIMENSIONNES 


Perfectionnons notre jeu, en permettant à chaque jou- 
eur de disputer plusieurs parties et en affichant les 
scores de chacune de ces parties. 


L'ORIC permet de réaliser des tableaux à double-entrée 
(dits aussi : tableaux à deux indices, ou à deux dimen- 
sions). 


Pour ce faire, on utilise une instruction DIM de la 
forme 


DIM SC(NJ,NP) 


s'il y a NJ joueurs et NP parties. Le score du joueur J 
à la partie P sera désigné par SC(J,P):;: d'où le pro- 
gramme B-9 page suivante. 
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FROGRAMME 6-3 


14 INPUT'HOMBRE DE JOUEURS "3H 

28 INPUT'COMBIEN CE PARTIES ":5HP 

39 DIM SCNJ, HF 

40 FOR Pæl TO HP:FOR Je TO HI 

5@ PRINT "JOUEUR HO. "iJ"PARTIE "3e 

6 Cel+SS#RNDC 15 :DÛKE 650,69535 

7 SCC, Fer ESSSS-DEEKC 638 32-64: IF SCC J,Parief GOTO 1184 
8Q IHPUT'NOMBRE PROPOSE "A4 

85 SCiJ, Fe 6SSSS-DEEKC 636 2 1-60@ 

90 Es190#ABSC A-C)-C: IF E£1 GOTO 1534 

198 FRINT'ERREUR "3 INTCE#1G@2-16@3"%": GOTO FA 

119 PRINT'TROP TARD! LAISSEZ LA PLACE AL JOUEUR SLUTIYANT" 
120 SC J, Fe :GOTO 158 

139 PRINT'GAGNE EN "3 INTE SCC J, F4 100 11883; "SECONDES" 
149 SC J, Posl+IMTEE 1E@-SCC LI, PE à 

190 MEXT JP :FRIMT : PRINT 

164 PRIHT "JOUEUR "3:FOR Fei TO HF 

170 PRINT'PARTIE ":Pi::MEXT P :PRINT :PRIHT 

189 FOR ei TO NJ :PRIHT " "Ja 

199 FOR Fæl TO HP :PRIHT " MISE JF, 

294 HEXT P:PRINT :HEXT 


Ces tableaux rectangulaires s'appellent, en mathéma- 
tiques, des matrices dont les éléments sont répartis en 
lignes et colonnes. Les matrices ont de nombreuses ap- 
plications : celles-ci sont donc réalisables sur l'ORIC. 


Exercice 5.5 


Ecrire un programme qui calcule le produit C de deux 
matrices À et B (rappel de la formule de définition 

525 D 
Crtj= Rai br? * 

Ce qui vient d'être exposé concernant les tableaux se 
généralise : le nombre de dimensions peut être quelcon- 
que : à trois dimensions, les éléments sont répartis en 
plans, lignes et colonnes. La seule restriction formelle 
au nombre de dimensions est que l'instruction DIM doit 
tenir en 80 caractères. Mais d'autres limitations inter- 
viennent auparavant : la taille mémoire restant dispo- 
nible ne doit pas être dépassée. 
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MANIPULATION DES CHAINES DE CARACTERES 


Il nous reste encore une amélioration à apporter à 
notre programme. En effet, il serait souhaitable que, 
dans l'impression des résultats, ce soit le nom de cha- 
que joueur qui soit écrit, et non son numéro. 


Nous allons voir que cela est possible. Il est indis- 
pensable, en effet, que l'ordinateur permette de mani- 
puler des textes ou des noms. Il faut bien, en gestion, 
manipuler le nom des clients ! 


L'ORIC admet deux sortes de variables : les variables 
numériques, que nous connaissons déjà, et les variables 
alphanumériques, ou chaînes de caractères. Le nom d'une 
variable chaîne se forme comme celui d'une variable nu- 
mérique, en ajoutant un $ à la fin : 


A : variable numérique ; 
AS : variable alphanumérique. 


Concurremment, dans le même programme, les variables 
distinctes À et AS peuvent être utilisées. 


Seuls les deux premiers caractères du nom d'une varia- 
ble sont pris en compte (à part le #) : ALS$ et ALFAS# 
sont la même variable. 


Il est possible de former des tableaux de chaînes de 
caractères DIM NOMS(N) réserve un tableau de N chaînes 
de caractères, chacun des éléments pouvant comporter un 
nombre variable de caractères. 


Pour affecter une valeur à une chaîne de caractères, 
l'instruction la plus simple est l'affectation classi- 
que : Aÿ=' BONJOUR". 


Notez que la valeur attribuée est entourée de guillemets 


On peut aussi "lire" la variable au clavier par INPUT 
AS. Dans ce cas, il n'est pas nécessaire de mettre 
BONJOUR entre guillemets, car l'ORIC s'attend à une 
chaîne de caractères. 


On peut enfin utiliser READ et DATA. Dans le DATA, les 
chaînes sont normalement sans guillemets, sauf si elles 
contiennent un caractère "spécial" comme espace, vir- 
gule ou deux points : 


19 READ A$,B$# 
29 DATA BONJOUR,"AU REVOIR" 


Nous sommes maintenant "parés" pour comprendre le pro- 
gramme B-10. 
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PROGRAMME B- 1154 


18 INPUT'NB.DE JOUEURS:HB.DE PARTIES "4 HJ, NP 
28 DIM HOMSE HI), SCCHJ, HP 

38 FOR J=1 TO NJ:PRINT'HOM DU JOUEUR HO, "ii 

35 INPUT HOMS#CJ> :MEXT 

40 FOR F=1 TO MP:FOR Jei TO HJ 

59 PRINT "JOUEUR HO. "idi"e "3: HOMSE "0", “PARTIE 3P 

64 C=1+99#RHDC 19 :DOKE 630.65535 

78 SCC J, Pet 65595-DEEKC6300)-E@: IF SC J,Pos12@ GOTO 118 
8Q INPUT"HOMBRE PROPOSE ":A 

65 EC .J, P Jet 6SSAS-DEEKX 630 3-60 

90 E=100XABSCA-C)/C: IF E<1 GOTO 134 

188 PRIHT'ERREUR ";INTCEX1093-1@0:"%": GOTO 7 

119 PRINT'TROP TARD! LAISSEZ LA PLACE AU JOUEUR SUIVANT" 
128 SCC J,P5=0 :GOTO 159 

139 PRINT'GAGHE EM "3 IHTE SC JF #100 100; "SECONDES" 
149 SCC J:PHæ1+INTÉ 6 180-806 JF) 2/24) 

159 HEXT J,P :PRINT :PRINT 

169 PRINT "JOUEUR ";:FOR P=1 TO NP 

179 PRIHT'PARTIE "3P5:HEXT P :FRINT :PRINT 

188 FOR J=1 TO HJ :PRINT HOMSCJ), 

130 FOR P=i TO NP PRINT "  "igCt JP, 

200 MEXT P:PRIHT :MEXT I. 


Dans le programme précédent, nous ne faisons que lire 
un nom, le ranger dans NOMS(J) pour le mémoriser et 
l'imprimer un peu plus tard. C'est souvent le seul trai- 
tement à effectuer sur les chaînes de caractères. 





Mais, dans certains cas, on doit effectuer des traite- 
ments sur les chaînes, comme des comparaisons, des ex- 
tractions, des conversions etc. Nous voyons maintenant 
les opérations de ce genre disponibles sur Ll'ORIC. 


Comparaison : Une instruction telle que IF Ag=B#ÿ GOTO ... 
permet de comparer les deux chaînes A$ et B9. Les appli- 
cations sont nombreuses : on peut, par exemple, vérifier 
si un mot appartient à un dictionnaire ou si un nom fi- 
gure dans une liste de personnes autorisées... Une autre 
comparaison, telle que IF AS<B#... est également utile 

en effet, le mot A$ est considéré comme inférieur à Bÿg 
s'il le précède dans l'ordre alphabétique, d'où un moyen 
de classer des listes de noms par ordre alphabétique. 


Concaténation : L'opérateur + appliqué à deux chaînes de 
caractères produit leur juxtaposition : 


"BON" + "JOUR" fournit BONJOUR. Tapez 
Ag = "NJ'" 
B3 = "UR" 
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C$ÿ = "BO'"+A8+"0"+B9 
?C4 là encore,vous obtenez BONJOUR 


Chaîne vide : C'est la chaîne formée de 0 caractère. 
Ag="" fournit à A$ la valeur 'chaîne vide' : quel que 
soit X#, X$+A$8 sera identique à Xg. 


Extraction de sous-chaînes : L'ORIC possède un certain 
nombre de fonctions permettant la "manipulation" des 
chaînes de caractères. Si le nom de la fonction se ter- 
mine par $, son résultat est une chaîne de caractères : 
dans le cas contraire, ce résultat est un nombre. 


- LEN(X$#) : fournit la longueur (nombre de caractères) 
de la chaîne : 


’ 


- LEFT$(X#,N) : fournit les N caractères les plus à 


gauche, extraits de la chaîne X$ : 


- RIGHTS(X#,N) : fournit les N caractères les plus à 
droite, extraits de la chaîne X#9. Si N>LEN(X8), on 


obtient toute la chaîne (valable aussi pour LEFTS#) ; 


- MID$ : extrait des caractères au milieu d'une chaîne : 
elle peut avoir deux ou trois arguments ; 





- MID#S((XS#,K) : fournit les caractères extraits de la 
chaîne X$ à partir de la position K. Si K>LEN(X#), on 
obtient la chaîne vide :; 


- MID#(X8#,K,N) : fournit la sous-chaîne de N caractères 
extraits de X$ à partir du K ième. Si K>LEN(X8), on 
obtient la chaîne vide : si N spécifie plus de carac- 


tères qu'il n'en reste dans X8, on obtient tous les 
caractères de X$ à partir du K ième. 


Exercice 5.6 


Remplacer le 5ème caractère de la chaîne X$ par la 
lettre A. 


Exercice 5.7 


Vérifier st la chaîne A$ contient la sous-chaîne B#. 
Renvoyer dans la variable K, # si A# ne la contient pas, 
et st elle la contient, la première position dans A8 où 
on trouve B$ 


Par exemple : si Bÿ="BRA", dans ABRACADABRA, on trouve 
B$ en 2 et en 9, et on doit obtenir K=2. Avec BONJOUR, 
on doit obtenir K=ÿ. 
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Fonctions de conversion : Les autres fonctions chaînes 
de caractères effectuent des conversions entre les nom- 
bres et leur représentation sous forme de chaînes de 
caractères ou de code ASCII (le code ASCII est le mode 
de représentation interne choisi par l'ORIC et la plu- 
part des micro-ordinateurs : chaque caractère est repré- 
senté par un motif binaire choisi, occupant un octet). 


Il y a quatre fonctions de ce type : 


- ASC(X#) : fournit la valeur en décimal de l'octet qui 
représente en ASCII le premier caractère de X#. Exem- 
ple : ?ASC("A") donne 65. 


- CHR$#(K) : fournit une chaîne de un caractère : le ca- 
ractère dont K est le code ASCII. Exemple : ?CHR#(65) 
fait imprimer un A. 


- STR#(A) : fournit la chaîne de caractères qui est la 
représentation en décimal du nombre A. Si A=3.5, 
STR$(A) est la chaîne : signe (1), chiffre 3, point, 
chiffre 5. ?A et ?STR$(A) produisent la même impres- 
sion à ceci près que ?A est suivi d'un mouvement 


de curseur à droite et non ?STR$#(A). Observez la 
différence entre 
?"AA";A; "AAA" et  ?"AA":STRS#(A);"AAA" 


11 y a néanmoins une différence importante : STR$(A) est 
une chaîne de caractères justiciable des opérations 
LEFTS... 


- VAL(X#) : fournit la valeur du nombre dont X9 est la 
CPR Re . # . » : 
représentation décimale. Les seuls caractères permis 
dans X$ sont les chiffres, le point, l'espace et + 
ou -. Si le premier caractère non blanc de X9 n'est 
pas l'un des caractères permis, on obtient ÿ. 


Exercice 5.8 


A est entier positif. Trouvez son nombre de chiffres. 
Même question st A est entier quelconque. 


Exercice 5.9 


Imprimez B en supprimant 3 décimales. 





(1) Pour un nombre négatif, on a le signe -. Pour un 
nombre positif(c'est un défaut du Basic de l'ORIC), on 
a le caractère de code ASCII 2. Il ne s'imprime pas. 
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RECAPITULATION 


Nous sommes maintenant arrivés à un état perfectionné 
de notre programme de jeu. 


Au passage, nous avons découvert les principales pos- 
sibilités de Basic. 


Les instructions décrites jusqu'ici sont en général 
valables pour tous les ordinateurs. 


Nous allons voir maintenant des propriétés particu- 
lières de l'ORIC qui, pour la plupart, ne se retrouvent 
pas sur les autres P.S.I., notamment les possibilités 
graphiques et sonores. 


Mais, auparavant, nous voyons deux exercices essen- 
tiels. 


Exercice 5.10 


Calculez le score moyen de chaque joueur SM(J). Impri- 
mez le nom et le score moyen du joueur qui a le score 
maximum. En cas d'ex-aequo, on prend le premier trouvé. 


11 est particulièrement nécessaire ici de raisonner sur 
l'ordinogramme pour étudier le problème du maximum. Ce 
problème très classique se pose dans d'innombrables ap- 
plications. 


Exercice 5.11 


Imprimez le classement des joueurs, et non pas seule- 
ment le premier. 


Rappel : Des solutions aux exercices sont proposées en 
annexe. 
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CHAPITRE VI 


COURBES, GRAPHIQUES 
HAUTE RESOLUTION 


L'instruction la plus simple permettant de faire des 
dessins sur l'écran, nous la connaissons déjà. C'est 
tout simplement l'instruction PRINT. 


PRINT "chaîne de caractères" fait imprimer une chaîne 
de caractères sur l'écran. Cela permet d'imprimer un 
texte, comme nous l'avons déjà vu. Nous allons voir 
maintenant comment cela nous permet aussi de tracer sur 
l'écran la courbe représentative d'une fonction, pro- 
gramme qui a des applications importantes. 


COURBE REPRESENTATIVE D'UNE FONCTION - 
INSTRUCTION DEF FN 


Le programme n'est, en fait, pas très compliqué. Nous 
allons tracer la courbe de la fonction exponentielle 
y = exp(x), (eX) pour x allant de ÿ à 1. La courbe sera 
tracée point par point. Temporairement, l'axe des x sera 
vertical, l'axe des y sera horizontal. Disposant de 25 
lignes sur l'écran, on pourra représenter 24 points. 


Sur la ligne i sera matérialisé le point correspondant 
à x #2. L'axe des abcisses est ici vertical, orienté 


de gauche à droite. y peut, lui, varier de 1 à 38. Sur 
une ligne donnée, une étoile sera imprimée dans la co- 
lonne dont le numéro est proportionnel à la valeur de y 
pour le x correspondant à la ligne. 
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Il faut donc appliquer un facteur d'échelle à la 
fonction, pour qu'elle varie entre 1 et 38 afin de cou- 
vrir tout l'écran. 


Pour la fonction exp, on emploiera 


_ 37 _.(exp(x)-1 AS 
e - 1 
La formule générale pour une fonction f(x) dont Île 
maximum et le minimum dans l'intervalle de variation 
étudié sont respectivement max et min serait 


ist 37 (f(x)-min) 


max -— min 


Pour imprimer la courbe, il suffit donc de réaliser 
une boucle FOR X = début TO fin STEP intervalle, et 
pour chaque point une étoile dans la colonne INT(y). 


Basic dispose de deux fonctions simples pour cela 


PRINT TAB(N); positionne à la colonne N 
PRINT SPC(N); fait imprimer N espaces donc posi- 
tionne en N+1 


Le programme à réaliser en découle directement 


PROGRAMME C-1A 


S@ FOR #=û TO 1 STEF 1-24 

DE Me L+INTESPÆC EKPE SK 1 DC ERPE À 21 50 
+4 FRIMNT SPCCHIi tx" 

JA HEXT 


Bien entendu, un programme véritablement opérationnel 
devrait offrir une meilleure présentation : titre, des- 
sin des axes, coordonnées, etc. 


Vous avez toutes les connaissances utiles pour le 
faire, et nous vous suggérons de vous y exercer. 


Exercice 6.1 


Tracez deux courbes sur le même graphique, par exemple 


sin(x) et cos(x) pour x de 0 à 2PI. 


Indication : ?CHR$#(11) fait remonter l'impression à la 
Tigne précédente. 


Nous traitons l'exercice dans le texte vu les diffi- 
cultés qu'il pose et les solutions apportées. 
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Compte-tenu de l'indication donnée, une solution sim- 
ple est 


Ex 6-1AÀ 


14 CLS 

24 FOR “eg TO ZXPI STEF S#PI-ZE 
SG Misi+INTÉSEXC SIME SK 41 02 0 

35 H2s1+INTÉGEXKC COS K 041 4H 0 

an PRINT SPCCHI DU" 

45 PRINT CHRëé 110: SPCCMN& "4" 
SG HEXT # 


La 2ème courbe s'inscrit avec des +. On a réduit l'in- 
tervalle d'écriture à 23 lignes (d'où le 22 à l'instruc- 
tion 29) et l'intervalle de variation à 37 (d'où le 36 
en 39 et 35) pour que les courbes tiennent bien dans 
l'écran. 


Mais il y a un défaut : les SPC(N2) de la 2ème courbe 
effacent la première courbe là où yl<y2. Il faudrait 
tester pour imprimer le plus grand d'abord, ce qui com- 
plique le programme. 


En fait, au lieu d'espaces il faudrait des curseurs à 
droite. De même que PRINT CHR#(11) équivaut à un cur- 
seur en haut, on a les codes suivants 


CHRS(...) Mouvement 


curseur à gauche 

curseur à droite 

curseur bas 

curseur haut 

vidage écran 

retour chariot 

retour en haut et à gauche de l'écran 
(sans effacement) 

espace 





Nous allons donc nous constituer une chaîne de cur- 
seurs à droite : D$ÿ="":FOR I=1 TO 4ÿ:D#=DS+CHR#(9):NEXT 
et pour faire N curseurs à droite, il suffira de pren- 
dre LEFTS8(DS8,N). 


D'où la seconde version 


# 6-16 


14 CLS: HBeCHRSE 11 5: De" 
15 FOR Iz1i TO 4@:D$=D$+CHRSK SG: HEET 
24 FOR x=A TO ZXPI STEF ESXPFI-EE 
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SG Hisi+IHTE BEC ESTIMÉ DAT IE à 
35 MESIL+TIHTE GRH COS el ee 
+0 PRINT LEFTS$c DS, Hi 3 "x" 

45 FRIHT HS LEFT#Ce DS, HE "an 
HA MEHT à 





INSTRUCTION DEF FN 


11 peut arriver de devoir tracer la courbe d'une fonc- 
tion qui n'est pas exactement une des fonctions de la 
bibliothèque, mais une combinaison de plusieurs d'entre 
elles. 


Cette combinaison peut intervenir plusieurs fois dans 
le programme. IL est alors pénible de la réécrire à 
chaque fois. 


11 existe une instruction qui permet de résoudre ce 
problème : c'est une instruction qui permet à l'utili- 
sateur de définir ses propres fonctions, qui vont alors 
se rajouter aux fonctions de bibliothèque. 


Exemples 


19 DEF FNHARM(X)=(A*xX+B)/(C*xx+D) 

29 DEF FNA(X)=2*xSIN(X)+COS(2*%x) 

39 DEF FNF(T)=EXP(-Tt2/2) 

49 DEF FNG(X)=1 + 36*(FNF(X)-MIN)/(MAX-MIN) 


Le nom de la fonction définie suit FN ;: il obéit aux 
règles habituelles applicables aux noms de variables. 


Un appel à la fonction FNHARM définie en 1ÿ# pourrait 
être 199 Z= l+FNHARM(3.5) 


L'expression donnée dans la définition est alors cal- 
culée, en remplaçant l'argument formel par la valeur 
(ici 3.5) fournie lors de l'appel. Pour les autres va- 
riables qui interviennent (ici A, B, C et D), ce sont 
leurs valeurs au moment de l'appel qui sont prises en 
compte. 

L'argument peut être fourni lui-même sous forme d'une 
expression quelconque à calculer 


199 PRINT FNA(U*A + EXP(B)/C) 
Les exemples 39 et 49 ci-dessus montrent qu'il est 


possible d'utiliser, dans la définition d'une fonction, 
une fonction déjà définie. 
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Utilisant cette nouvelle possibilité, voici le pro- 
gramme C-1B qui trace la courbe de la fonction de Gauss 
entre À et B 


FROGRANME C-1E 


5 CLS: IHPUT"BORM 

CEF FMC 4 RER ein 
EF FHGCN = L4DGNEF 

me LACS à FAT Mes À Es 

“sh TO E STEP 

IF FHFL x tt THEM MEME NEC 
 FHFER EMI THEH MIHSFHEFC 4 0 













-A 3/28 


1a8 =INTR SPC HOUR MENT 
11à GOTO 118 


La dernière ligne évite l'impression de Ready. 


L'avantage du programme C-1B sur la version précédente 
est qu'il est général : les bornes sont fournies par 
INPUT, et pour changer de fonction à tracer, il suffit 
de retaper l'instruction 19. 


De 39 à 79 s'effectuent les calculs du maximum et du 
minimum de la fonction, de la même manière qu'à l'exer- 
cice 5.10. 


En 69 nous avons écrit MI au lieu de MIN ;: on sait que 
cela référence la même variable. Si l'on avait écrit 
MIN, Basic aurait lu IF FNF(X)<M INT HEN... et aurait 
trouvé le mot-clé INT en position erronée. Voilà le 
genre de petite surprise que l'on peut avoir ! 


Nous avons rencontré dans les programmes de la série 
B qui précèdent, une bonne occasion d'utiliser un DEF 
FN ; c'est pour imprimer un résultat en ne conservant 
que deux décimales : la même expression revient plusieurs 
fois. 


Par exemple, dans B-8, on aurait pu écrire : 
3 DEF FNZ(X)=INT(X*199)/199 
Les lignes 69 et 9ÿ devenant respectivement 


69 PRINT"'ERREUR":;FNZ(E);"#%":GOTO 3ÿ 
99 PRINT''GAGNE EN" :FNZ(SC(J)): "SECONDES". 


De même, tous les calculs de temps seraient simplifiés 
par 
5 DEF FNTI(X)=65535-DEEK(63@) 


91 


LA DECOUVERTE DE L'ORIC 


Exercice 6.2 


Reprenez le programme de l'exercice 85.4. En principe, 
vous l'avez sauvé sur cassette. Vous avez une popula- 
tion répartie en 10 classes. Tracez l'histogramme cor- 
respondant. 


Un histogramme est un diagramme formé d'autant de 
bâtons que de classes, chaque bâton ayant une longueur 
proportionnelle à l'effectif de la classe correspondante 
À chaque ligne, ce n'est pas N espaces qu'il faut im- 
primer, mais N étoiles. 


LES TROIS MODES BASSE RESOLUTION 


L'ORIC dispose d'autres instructions pour dessiner 
des courbes. Ces instructions se répartissent entre les 
quatre modes d'affichage que possède l'ORIC : texte, 
basse résolution ÿ, basse résolution 1 et haute résolu- 
tion. On passe d'un mode à l'autre à l'aide des instruc- 
tions : 


TEXT qui fait passer en mode texte: 

LORES ÿ qui fait passer en mode basse résolution, 
caractères standards: 

LORES 1 qui fait passer en mode basse résolution, 
caractères auxiliaires: 

HIRES qui fait passer en mode haute résolution 
étudié à la fin de ce chapitre. 


Les trois modes basse résolution sont très proches et 
ils sont commandés par les mêmes instructions PRINT et 
PLOT, tandis que le mode haute résolution a tout un jeu 
d'instructions à part. 


Les deux modes LORES ne différent que par une chose : 
le choix du jeu de caractères utilisé. En effet, tout 
ordinateur doit, pour que son affichage fonctionne, pos- 
séder en mémoire les dessins de tous les caractères. 

Ces jeux de caractères sont normalement en ROM, mais 
l'ORIC les recopie en RAM à la mise sous tension. L'in- 
térêt est que l'on peut modifier la forme des caractères: 
nous l'exploiterons au chapitre suivant. Une particula- 
rité de l'ORIC est qu'il dispose de deux jeux de carac- 
tères : les caractères standards (lettres majuscules et 
minuscules, chiffres etc...) et les caractères auxi- 
liaires. Les caractères auxiliaires normaux ne sont pas 
très intéressants (caractères Télétel anglais) mais on 
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peut les modifier. Ils sont illustrés par la photo ci- 
dessous. 






58% 
2:35: 
351€ 
15 





À la mise sous tension, on est en mode TEXT. Sachant 
que l'on peut, à l'aide des attributs afficher les ca- 
ractères de l'un et l'autre jeu quelque soit le mode, 
nous utiliserons exclusivement le mode TEXT dans ce 
livre. Les différences entre le mode TEXT et les modes 
LORES concernent la gestion des attributs (cf. la sec- 
tion consacrée aux attributs) et la gestion des lignes 
et colonnes. 


Rappelons que, physiquement, l'affichage de 1l'ORIC 
fait 28 lignes sur 40 colonnes. Nous numérotons les li- 
gnes de haut en bas Z, @, 1, ... 26. La ligne Z est ré- 
servée aux informations d'état : c'est là que s'affiche 
le "searching" du magnéto, le "CAPS" lorsqu'on s'est 
fixé en mode capitales par 'Ctrl' T etc... Nous numéro- 
tons les colonnes de gauche à droite Z, ÿ, 1, 2,... 38. 
En mode LORES, la colonne Z est inaccessible (elle con- 
tient l'attribut de couleur du fond). Les colonnes ÿ à 
38 sont accessibles. En mode TEXT, la colonne Z est, 
comme en modes: LORES, réservée à l'attribut de couleur 
du fond ; mais la colonne ÿ est, elle aussi, réservée 
(à l'attribut de couleur des traits). Ceci explique 
qu'on ne dispose que de 38 colonnes par ligne. 


PLOT 


L'instruction PRINT nous a permis de dessiner sur 
l'écran mais elle a certains inconvénients : on a vu les 
difficultés qu'on a eues pour tracer les courbes sur le 
même graphique. En fait, ce qui est difficile c'est de 
se positionner à un emplacement déterminé de l'écran. 

On le peut à coups de CHR#(39) et de mouvements de 
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curseur (voir tableau des CHR$ correspondants dans 
l'Exercice 6.1), mais l'ORIC a une meilleure instruc- 
tion pour cela, PLOT. 


PLOT a deux formes 
PLOT X,Y,K et PLOT X,Y,Kg 


où X et Y sont les coordonnées où se fera l'impression 
(ou 1<x<38, O<Y<26 selon le schéma 
0 38 0 X | 
ci-contre) et K est un nombre, 
code du caractère qui sera affiché 
si 0O<K<31, il s'agit d'un attribut 
qui va influer sur les impressions 
futures ; si 32<K<127, un carac- 


26 à 2 1 ne 
tère sera réellement imprimé. 


Y 
Dans la 2ème forme, K$ÿ est une 
chaîne de caractères qui sera imprimée à partir de la 
position définie par X,Y. 
Exemple : Vérifiez que PLOT 15,15,65 et PLOT 15,15,"A" 
produisent le même résultat. 


Le tableau suivant résume les codes caractères 


Code Code Code 
53 ) 








32 espace 5 75 K 
33 ! 54 6 76 L 
34 " 55 7 77 M 
35 # 56 8 78 N 
36 $ 57 9 79 0 
37 % 58 ë 80 P 
38 & 59 . 81 Q 
+ apostrophe) 9 * Fe Re 
40 ( 61 = 83 S 
41 ) 62 > 84 T 
42 x 63 ? 85 U 
43 + 64 @ 86 V 
44 ; 65 À 87 W 

(virgule) 66 B 88 x 
45 _ 67 C 89 Y 
46 ë 68 D 90 Z 
47 / 69 E 91 C 
48 0 70 F 92 \ 
49 À 71 G 93 ] 
50 2 72 H 94 t 
51 3 73 I 95 £ 
52 4 74 J 96 © 
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Code Code Code 


Caractère 












SD H 
e 


FU.H+ TQ HD @ A D D 
O 
tm 
EF 


<£+tuUHOQOTOS3H 





Les codes 34, 96 et 126 ne peuvent s'obtenir par "ca- 
ractère" : il est donc obligatoire de les imprimer par 
CHR# (code). 


Les codes ÿ à 31 qui définissent les attributs seront 
étudiés plus tard. 


Enfin, si l'on écrit 128+code, on obtient le même ca- 
ractère mais en contraste inversé (échange des couleurs 
de fond et de trait) avec PLOT ou POKE, le même carac- 
tère sans inversion avec PRINT CHR#(...). 


Nous sommes maintenant en mesure de tracer une courbe 
avec PLOT : nous reprenons tout simplement notre tracé 
de l'exponentielle (C-1A). Il faut faire une transfor- 
mation des coordonnées car maintenant X est en horizon- 
tal et commence à la valeur 1. Nous appelons XX et YY 
les coordonnées "courbe" et X et Y les coordonnées 
écran 

X=1+37*xXX Y=27-VY 


d'où 
PROGRAMME C-1C 


1a CLS 
28 FOR KX=@ TO 1 STEP 1-38 
BA He L+INTÉ STHEX 

40 V=26- INT 26XC ENPC 
Sa FLOT Kovs "x" 

£a HEXT 








Le dé ENPC 1 3-1 50 


Le fait de pouvoir tracer un point en fonction de ses 
coordonnées est très utile si la courbe est définie par 
des équations paramétriques. 
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Exercice 6.3 


Tracer un cercle sur l'écran. Rappel : si XC,YC sont 
les coordonnées du centre et R le rayon, le cercle a 
pour équations paramétriques 


Sa cos T 


Y=YC+R sin m  VST<8PI 


LA FONCTION SCRN 


La fonction SCRN(X,Y) renvoie le code du caractère 
inscrit à la position X,Y. Elle renvoie 32 (espace) 
s'il n'y a rien. 

Exemple : Après PLOT 15,15,"A" , ?SCRN(15,15) fait 
imprimer 65. 


L'utilité de cette fonction est grande dans les pro- 
grammes de jeu : vous pouvez par exemple déceler facile- 
ment si un mobile rencontre un obstacle. 


ENTREES-SORTIES PAR PEEK ET POKE 
DANS LA MEMOIRE D'ECRAN 


Une autre manière d'écrire à une position déterminée 
de l'écran est d'écrire directement le code voulu dans 
la mémoire convenable. En effet, il y a une zone mémoire 
assignée à l'écran, chaque position sur l'écran étant 
associée à une case mémoire qui conserve le code du ca- 
ractère affiché à cette position. 


Les adresses obéissent au schéma suivant 


x 
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Ainsi l'adresse correspondant à la case X,Y est 48999 
+ 49%x(Y+1)+X+1 
POKE 48999+4@x(Y+1)+X+1,Z est équivalent à PLOT X,Y,Z 
et, donc, n'a pas d'intérêt dans un cas habituel. Le 
seul intérêt du POKE est qu'il peut accéder à la ligne 
et à la colonne réservées. 


De la même façon PEEK(48ÿ#ÿÿ+4@*x(Y+1)+X+1) est équiva- 
lent à SCRN(X,Y). 


LES ATTRIBUTS — LES COULEURS 


Lorsque le code est »>32, PRINT CHR#(code) et PLOT..., 
code sont équivalents. Lorsque le code est inférieur, 
ce n'est pas le cas. Avec PRINT, on obtient une action 
spéciale de mise en page sur l'écran analogue à celle 
qu'on obtiendrait en mode direct avec la touche 'Ctrl'. 
Les actions de la touche 'Ctrl' ont été indiquées dans 
la section sur le clavier au chapitre 3. Le tableau des 
principaux codes de mise en page écran a été donné dans 
la solution de l'Exercice 6.1 au début de ce chapitre. 
On remarque que 'Ctrl' lettre équivaut à ?CHR#(code) si 
code=numéro de la lettre dans l'alphabet. 





Ainsi ?CHR#(12)+"AAAA" vide l'écran et imprime AAAA. 
Qu'en est-il avec PLOT ? Essayez PLOT 15,15,CHR#(12)+ 
"AAAA'". 

Eh bien on imprime AAAA au milieu de l'écran, mais en 
clignotant. Le AAAA a été imprimé ligne 15 mais à partir 
de la colonne 16. Un ?SCRN(15,15) montre que la case 15, 
15 a été remplie avec le code 12, qui est l'attribut du 
clignotement. 


Peut-on avoir les attributs avec PRINT ? Oui, mais il 
faut, comme on l'a vu en mode direct au clavier, que le 
code soit précédé d'un caractère 'Escape' (CHR#(27)). 
Essayez : ?" "4CHRS(27)+"LAAAA" 

Vous obtenez le AAAA clignotant. L'espace en tête em- 
pêche que l'attribut vienne en tête de ligne : on verra 
pourquoi un peu plus loin. Le L n'est pas imprimé : 

c'est lui qui crée l'attribut ; on voit que ce n'est pas 
le code PLOT qu'il faut mettre mais la lettre dont le 
numéro dans l'alphabet est le code voulu. On pouvait 
aussi mettre : 

CHR# (code + 64) : essayez 7?" "4+CHRS(27)+CHR$(76)+"AAAA". 


Quelle est l'action des attributs ? Les attributs com- 
mandent : 
- la couleur du fond, la couleur des traits des carac- 
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tères, le fait d'appartenir au jeu de caractères stan- 
dard ou auxiliaire, le fait d'être clignotant ou non, 

le fait d'être en simple ou double hauteur. Les valeurs 
sont résumées dans le tableau ci-dessous. Les caractères 
avec 'Esc' ont été donnés au chapitre III. 


Code des attributs 


caractères double hauteur, 
caractères rouges auxiliaires,clignotant 
caractères verts fond noir (16+0) 
caractères jaunes fond rouge (16+1) 
caractères bleus fond vert (16+2) 
caractères pourpres fond jaune (16+3) 
caractères turquoises fond bleu (16+4) 
caractères blancs fond pourpre (16+5) 
simple hauteur ,standard fond turquoise (16+6) 
simple hauteur, fond blanc (16+7) 
auxiliaires texte 60 Hz 

double hauteur ,standard texte 60 Hz 

double hauteur, texte 50 Hz 
auxiliaires texte 50 Hz 

simple hauteur ,standard graphique 60 
clignotant graphique 60 

simple hauteur, graphique 50 
auxiliaires, clignotant graphique 50 

double hauteur ,standard 

clignotant 





La double hauteur n'a pas grand intérêt. Les codes de 
24 à 31 non plus. Notez que les valeurs marquées 60 Hz 
font perdre la synchronisation sur les téléviseurs euro- 
péens : il ne vous reste plus qu'à faire RESET (petit 
bouton sur Ll'ORIC, ou frappe de CALL 62512) ; cela ne 
détruit pas le programme en mémoire. 


Exercice 6.4 
Imprimez BONJOUR au milieu de l'écran, clignotant en 
bleu sur fond pourpre. 


L'exercice précédent pose le problème du domaine de 
validité des attributs. La règle est simple : un attri- 
but est valable à partir de sa position jusqu'à la fin 
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de la ligne ou jusqu'à ce qu'un nouvel attribut vienne 
le contredire sur la ligne. 


Plusieurs attributs peuvent être en vigueur en une po- 
sition. Si un nouvel attribut vient contredire l'un 
d'eux, les autres restent valables. Ainsi, dans l'exer- 
cice 6.4, on a : 


col. 14 15 16 17 23 24 
clign. car. fond BONJOUR fond 
bleus pourpre blanc 


En colonne 25, par exemple, on est en fond blanc, mais 

on est resté en caractères bleus clignotants. Vous pou- 
vez le vérifier en venant à la fin de la ligne par mou- 
vements de curseur et en tapant quelques caractères. 


Exercice 6.5 
Imprimez comme à l'exercice 3.3 
su Du MADAME BONJOUR MONSIEUR 


fixe!'noir fixel bleu 
sur blanc sur blanc 


clignotant clignotant 
blanc sur noir jaune sur bleu 


Il y a deux manières d'obtenir du contaste inversé : 
changer les attributs, ou ajouter 128 au code caractère. 


Question : Peut-on avoir, en deux positions consécutives 
de l'écran, des caractères de couleurs différentes ? 


- NON, car l'attribut de changement de couleur occupe 
une position. 


Exemple : on ne peut avoir AE (tant pis pour Rimbaud..) 


code 1! ; 
noir ‘rouge 


. i 
on aura au mieux A LE 
tr t 
noir rouge 
Le seul cas où l'on peut avoir des couleurs différentes 
consécutives sur une ligne, c'est de faire des fonds 


différents, sans caractères. Il suffit alors de mettre 
les attributs. Essayez : 


PLOT 19,19,CHR#(16)+CHR#(17)+CHRS# (18 )+CHRS$(19)+CHRS (29)+ 
CHRS(21)+CHR#(22)+CHRS# (23). 
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Exercice 6.6 


Dessinez le drapeau français au milieu de l'écran. 


Attributs globaux 


Pourquoi y a-t-il deux colonnes réservées en début de 
chaque ligne ? C'est parce qu'elles contiennent les at- 
tributs de couleur de fond et de couleur des caractères 
standard (à la mise sous tension on a fond blanc, carac- 
tères noirs en mode TEXT ; c'est l'inverse dans les 
modes LORES). 


Il est facile d'en changer. Il suffit, pour changer 
la couleur du fond de l'écran de faire POKE toutes les 
colonnes z, attribut de fond voulu. Essayez : 


FOR 1-48ÿ%ÿ@@ TO 4912@ STEP 4@:POKE I,18:NEXT 


vous obtiendrez un fond vert. Ceci montre que les attri- 
buts fonctionnent aussi bien avec POKE qu'avec PLOT. 


Eh bien le Basic de l'ORIC vous permet d'éviter une 
telle boucle. Il suffit de faire PAPER n pour définir la 
couleur de l'écran selon la correspondance 


Re L'OPTe qe E es Del. 6 7 





couleur bleu | pourpre | turquoise | blanc 


PAPER n équivaut à la boucle avec l'attribut n+16. 


De même INK n définit la couleur des caractères avec 
la même correspondance. Cette fois, la valeur de n est 
égale à l'attribut correspondant. 


Nous en avons terminé avec les modes basse résolution. 
La question des attributs est délicate mais c'est elle 
qui permet les couleurs ou des effets comme le clignote- 
ment. 


Exercice 6.7 


Faire un drapeau français couvrant tout l'écran. 


LE PROBLEME DE LA RESOLUTION 


Tous les graphiques que nous avons obtenus jusqu'à 
maintenant sont assez grossiers puisqu'ils sont définis 
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dans les mailles d'impression de l'écran : la résolution 
est de 28 sur 49 au maximum. 


En fait, l'ORIC permet d'accéder aux points élémen- 
taires de l'affichage, ce qui multiplie la résolution 
par 6 en horizontale et par 8 en verticale. Comme ce 
mode appelé HIRES (haute résolution) laisse en fait les 
trois dernières lignes de l'affichage en mode TEXT, ce 
qui vous permet de taper des commandes, la résolution 
finale est de 299 sur 24ÿ suivant le schéma : 


ÿ 56: 53 LL 239 x 


he 


Œ eee 


199 ST ei 


3 lignes en mode 





Y 


On passe au mode haute résolution par la commande 
HIRES. On repasse en mode texte par TEXT. Les données de 
l'écran sont perdues lorsqu'on envoie une telle commande. 


La fenêtre en mode TEXT est le plus souvent en noir 
sur blanc (elle garde les couleurs qu'on avait en mode 
TEXT). Les commandes PAPER et INK s'appliquent à la fe- 
nêtre en haute résolution pour définir la couleur du 
fond et du tracé. Lorsqu'elles sont utilisées, donc 
lorsqu'on ne fait pas du blanc sur noir, les colonnes 
élémentaires # à 11 deviennent inaccessibles (pour con- 
tenir les attributs voulus). 


A part PAPER et INK, le mode haute résolution a un jeu 
de commandes spécial que nous voyons maintenant. Dans 
la suite X et Y dénotent des coordonnées exprimées en 
lignes et colonnes élémentaires : 


ÿ ou 12 <X<239 :; W<Y<199 
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COMMANDES HAUTE RESOLUTION 


CURSET X,Y,K 


CURMOV DX,DY,K 


DRAW DX,DY,K 


PATTERN M 


CHAR C,S,K 


CIRCLE R,K 


: positionne le curseur en X,Y où on af- 
fiche un point de la couleur du tracé si 
K=1, de la couleur du fond (donc invisi- 
ble) si K=-ÿ. Dans cette commande et les 
suivantes, les coordonnées n'ont pas be- 
soin d'être entières : le système prend 
la partie entière. 


: positionne en X+DX, Y+DY si X,Y est 
l'ancienne position : donc CURMOV est 
analogue à CURSET si ce n'est que CURSET 
offre un positionnement absolu tandis 
que CURMOV est relatif aux anciennes co- 
ordonnées. K a le même rôle que dans 
CURSET. 


: trace un trait droit de X,Y à X+DX,Y+ 
DY. Si K=1 le tracé sera visible, si K=ÿ 
il sera invisible (car de la couleur du 
fond). Le tracé est un trait continu en 
principe, selon la valeur donnée par 
l'instruction PATTERN. 


: définit le motif des traits qui seront 

tracés. M est un entier de ÿ à 255 c'est- 

à dire un octet dont les 1 définissent 

les pleins, et les ÿ les vides. 

Exemple : 255=11111111, trait continu 
15=ÿ99ÿ@1111, pointillé régulie 


142=-199@1119, .-.-.-. 


: affiche le caractère de code ASCII C à 
une position telle que les coordonnées 
de son coin supérieur gauche soient 
celles du curseur. On utilise le jeu 
standard si S=-ÿ, le jeu auxiliaire si S=1 
Le caractère sera visible si K-1. 


: dessine un cercle de rayon R dont le 
centre est à la position actuelle du cur- 
seur. Il est visible si K-1. 


La commande FILL concerne les attributs : elle sera 
vue au chapitre suivant. Il reste à voir une fonction 
analogue à SCRN : 


POINT (X,Y) 


: renvoie -1 si le point de coordonnées 
X,Y est allumé, ÿ sinon. 
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Elle peut être utilisée même quand on 
est repassé en mode TEXT après avoir fait 
un dessin en HIRES. 


Nous sommes maintenant en mesure de tracer une courbe 
en haute résolution. 


Nous allons tracer 4 alternances de sinusoïde. Nous 
adopterons l'équation : Y=1ÿÿ+9YxSIN(8*xPI*x*x/23%) d'où 
le programme 

PROGRAMME C-£ 


18 HIRES 
20 Med: Y=100:CURSET KV: 1 

Sa FOR HK=1 TO 230 

40 YV=1Q0+B0KS INC KP IKHX/2SQ ) 
SA DHeMKH Der 

68 DRAU D, Ov, 1 :CURSETHX, VV, 1 
7@ NeNX: Ya YY 

ga HEXT 


Le CURSET en 6ÿŸ est nécessaire car DRAW ne met pas le 
curseur à jour. 


Nous sommes maintenant presque en mesure d'écrire un 
programme spectaculaire, le Télécran. Un petit exercice 
avant. 


Exercice 6.8 
Mettez un titre à la courbe du programme C-2. 


Exercice 6.9 


Transformez votre ORIC en Télécran. En fonction de la 
touche enfoncée, nous déplaçons le point de tracé. Si 
la touche "Ctrl' n'est pas enfoncée, il y a simple dé- 
placement. Si elle est enfoncée, il y a tracé. L'adresse 
mémoire 52ÿ contient à tout moment l'image de la touche 
actuellement enfoncée. Nous proposons les assignations 


suivantes 
Î 180 


aucune 
jee espace 132 


curseur-— 
t ‘Return 175 


— 
















ds 
retour en 
haut à gauche 
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L'adresse mémoire 521 contient l'état des touches 
'Shift' et 'Ctrl' selon le tableau 


aucune 


Shift droit 





SAISIE AU VOL DE CARACTERES AU CLAVIER 


Revenons à notre programme de jeu "devinez un nombre". 


Maintenant que nous savons écrire en un endroit déter- 
miné de l'écran, grâce à PLOT, nous pouvons apporter 
une amélioration spectaculaire à notre programme de jeu 
du chapitre précédent. 


Quelle angoisse pour le joueur de voir les secondes 
s'égréner sur l'écran pendant qu'il cherche le nombre à 
deviner ! 


Pour mieux voir l'essentiel, nous partons d'une ver- 
sion simplifiée du programme B-5/B-8 


FROGRANME  E-SE 





LA DEF FHTIL Se INTECSESSS-DEEK His 

15 CLS: Ce 1H SÆRNOE 1 DORE 654, CSSS 

BA IF FHTIé# +68 GOTO FA 

SA PRINT "HE, PROPC ne 

6 HBRSTRÉC FHTTE SK 0 SR TCHAT SE ER, LEE 6 ee À Us PLOIT 45, M, 
4% INPUT À 

MO Es lGAHABEC A-CiSC:IF E<i GOTO A 

GA PRINT "ERREUR "Si INTCE 434 GT 

FA PRINT'FERDUI" :GOTO SG 

&@ FRINT'GAGHE !" 

A4 IHPUT'"'ON RECOMMENCE "Ag: TE Mgz"OiNI" GOT 14 











Les simplifications que nous avons apportées sont évi- 
dentes : nous avons supprimé toute gestion des diffé- 
rents joueurs, simplifié le traitement des erreurs, et 
ramené le temps limite à 1 minute. On exploite le DEF FN 
vu au début du chapitre. 


La fin du programme mérite examen : on demande au 
joueur s'il veut recommencer, et on analyse la chaîne 
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de caractères que forme sa réponse : c'est très utilisé 


, 


dans tous les programmes dits "interactifs". 


Nous avons mis le libellé "NB. PROPOSE" (ligne 38) 
dans une instruction PRINT distincte de INPUT. C'est en 
effet entre les deux que se placera l'impression de 
l'heure. On inscrit dans la partie droite de la première 
ligne de l'écran le nombre de secondes écoulées. IL faut 
un STR$ pour transformer en chaîne de caractères. On 
élimine son caractère le plus à gauche car STR# intro- 
duit un caractère parasite. 


Essayons le programme ainsi obtenu. 


Il ne fonctionne pas comme nous le voulons : on ne 
voit pas se dérouler le temps pendant que le joueur hé- 
site à donner son nombre. 


Tout vient de l'instruction INPUT. Lorsqu'une instruc- 
tion INPUT s'exécute, le programme est bloqué jusqu'à 
l'appui sur la touche 'Return'. Pendant ce temps, rien 
ne peut être fait. 


Ce qu'il nous faudrait, c'est une instruction qui re- 
garde si l'on a tapé un caractère sur le clavier et qui 
redonne le contrôle à l'utilisateur dans tous les cas. 
On pourrait alors obéir à l'ordinogramme ci-après 


Regarder au clavier 






Inscrire l'heure 







Caractère Return 











Traiter 
le nombre 


Le joindre 
au nombre 
à former 







Pas delcaractère 
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Eh bien l'ORIC a ce qu'il faut pour cela. On a déjà 
vu une solution dans l'exercice 6.9. Mais elle a un in- 
convénient : le PEEK(52@) n'est pas le code ASCII du 
caractère concerné : c'est une valeur qui dépend de 
l'emplacement de la touche sur le clavier. On pourrait 
dresser un tableau complet de la correspondance PEEK 
(52#)-touches, mais cette solution n'est commode que si 
l'on s'attend à un choix très réduit de quelques touches 
ce qui était le cas dans le Télécran. 


L'ORIC offre deux solutions purement Basic au problème. 


L'instruction GET 


GET A$ attend l'appui sur une touche et fournit le 
caractère tapé dans la chaîne Ag. 


Ceci n'est pas encore vraiment la solution à notre 
problème puisque GET attend l'appui sur une touche. Mais 
GET est utile pour améliorer l'interactivité du pro- 
gramme en évitant d'attendre en plus le 'Return' 


La fonction KEY$ 


AS=KEYS$ fournit à tout moment dans A$ le caractère 
correspondant à la touche enfoncée. S'il n'y a aucune 
touche enfoncée, on obtient la chaîne vide dans Aÿ. 


Ceci fournit la solution cherchée puisque KEY3 rend 
immédiatement le contrôle au programme sans attendre 
qu'il y ait une touche enfoncée. 


En appliquant exactement l'ordinogramme précédent, on 
obtient 


PROGRAMME  B-5C 


14 DEF FHTISHODSINTE SES 
15 CLS:'C=1+93#RHD€ 1 3: 
2@ PRINT "HB.PROPÜSE 7 
25 A$= “un 

3Q IF FHTICHOSEN GOTO FÈ 

35 Bé=kKET 

35 HÉ=STREC FNTIL 0 1: BR IGHTÉE RS, LENS 1 1: PLOT CSS, A, #8 
37 IF B#="" GOTO 34 

39 IF BS=CHR#C 133 GOT 43 

41 Aé=AS+ES: PRINT E$i: GOTO 3à 

45 A=VALE AS 2: PRINT 


SA EsiAA#ABSE AC CIIF El GOTO SË 


pa | 


= 
Q 


35-DEEKLC 638 0 1-68 1 
KE 639.68835 
# 


j 
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6A PRINT "ERREUR M3 INTÉE M" GOT ZM 

7Q PRINT'PERDUI" :GOTO SG 

84 PRINT'GAGHE !" 

9Q INPUT'OH RECOMMENCE 3 A&:IF Age "OUT" GOTO 18 


Nous nous limiterons ici aux commentaires essentiels. 
Le changement d'ordre entre 2ÿ et 39 est nécessaire pour 
que l'on passe à tout moment sur le test du temps, afin 
de bien assurer qu'on ne laisse qu'une minute. 

On remarque, en 2ÿ, que l'on imprime explicitement le 
point d'interrogation : GET et KEY# ne le fournissent 
pas, au contraire d'INPUT. De même, avec GET et KEY3, 
on est obligé de contrôler la mise en page, d'où les 
espaces en 29 et 69, et l'on est obligé d'imprimer les 
caractères à mesure qu'on les trouve, d'où le PRINT en 
al. 

Les lignes 25, 33 et 41 construisent progressivement la 
chaîne A$ à partir d'une valeur initiale "chaîne vide". 
A chaque fois qu'un caractère B$ est disponible, il est 
concaténé à la chaîne Ag déjà obtenue : Ag = Ag+Bg. 
Notez aussi, en 39, comment le caractère 'Return' est 
testé ; on ne pouvait pas faire : 39 IF B$ÿ='Return', 
car le 'Return' termine impitoyablement la ligne. On 
aurait pu écrire également : 


39 IF ASC(B#)=13... 


Nous conseillons vivement d'adapter cette dernière 
version de B-5 à B-1ÿ que nous avions obtenue au chapi- 
tre précédent : pratiquement, seuls les numéros d'ins- 
truction changent. 


Nous voyons, en somme, que l'instruction GET et la 
fonction KEYS "saisissent" les caractères un par un au 
clavier. Cela permet une meilleure interactivité entre 
l'utilisateur et la machine. Par exemple, à la fin de 
B-5C, on pourrait recommencer dès que l'utilisateur a 
tapé O de OUI, sortir dès qu'il tape N, au lieu d'atten- 
dre O U I 'Return'. Cela permet de réagir plus vite à 
la frappe de l'utilisateur : c'est nécessaire, en par- 
ticulier lorsque, dans un jeu de bataille de chars, par 
exemple, l'appui sur une touche simule un tir. 


Exercice 6.10 


Faites la modification nécessaire à la fin du pro- 
gramme B-5C. 
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Exercice 6.11 


Il est bien souvent utile d'insérer un point d'attente 
dans un programme : cela permet de fixer l'affichage 
pour que l'utilisateur en prenne connaissance. Très sou- 
vent, on décide que, pour continuer, il suffit que 
l'utilisateur appuie sur n'importe quelle touche. Im- 
plantez la séquence qui assure ce comportement. 


GRAB ET RELEASE 


Bien sûr, l'affichage en haute résolution consomme 
beaucoup de place mémoire. Il y a un moyen, lorsqu'on 
n'est pas en mode HIRES, de récupérer cette place mé- 
moire pour Basic. Comme elle fait environ 8K, c'est ap- 
préciable sur un ORIC 16K et cela peut être utile aussi 
avec un 64K. Il suffit d'écrire la commande GRAB. 


RELEASE est la commande inverse. Elle reprend à Basic 
la zone de mémoire de la haute résolution. Si l'on a 
fait GRAB pour faire tourner un programme et que i'on 
veut ensuite faire de la haute résolution, il faut faire 
RELEASE avant le HIRES. 


RECAPITULATION 


Ce chapitre nous a fait connaître une bonne partie 
des possibilités graphiques de l'ORIC. D'autres possibi- 
lités -plus délicates- seront décrites dans le chapitre 
suivant. 


Nous savons maintenant tracer une courbe en basse ou 
haute résolution et manier les couleurs. 


Nous avons vu en outre deux outils intéressants : DEF 
FN et la saisie de caractères au vol. 
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CHAPITRE VII 


PROGRAMMES GRAPHIQUES 
ELABORES 


LES GENERATEURS DE CARACTERES 


Il nous faut maintenant expliquer un peu plus profon- 
dément comment marche l'affichage de l'ORIC. Nous allons 
simplifier au maximum. 


L'écran haute résolution est formé d'une matrice de 
points (299 sur 24%), chacun étant susceptible d'être 
allumé ou éteint. À la mise sous tension et en l'absence 
d'attributs, "allumé" = blanc, "éteint" = noir. Le télé- 
viseur ou, plutôt, le processeur graphique, balaie 
l'image ligne élémentaire par ligne élémentaire. Pour 
chaque point de l'image, au moment où il le balaie, il 
doit être capable de savoir s'il est allumé ou éteint. 
Le fait d'être allumé pouvant se coder sur un bit (1 - 
allumé, 9 = éteint), ceci représente une information de 
299x249-4899ÿ9 bits. En fait, le long d'une ligne élemen- 
taire, les bits sont groupés 6 par 6 et chaque groupe 
entre dans un octet. Il y a donc 4ÿ octets pour chaque 
ligne d'où 8999 octets. 


Sur l'ORIC ces octets sont aux adresses 4996ÿ à 48959 
selon le schéma 





X 
1.e.0 49999 
OUT 
1.e.l 41939 
l.e 
199 48959 
Y 
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Vous pouvez vérifier ces adresses en tapant : 
HIRES : POKE 4#96ÿ,63:POKE 48959,63 


Bien sûr, 8999 octets c'est une taille mémoire impor- 
tante. On va voir que pour afficher des textes, la 
taille nécessaire peut être diminuée ce qui fait gagner 
en mémoire et aussi en vitesse d'affichage. 


Pour cela, on regroupe les points élémentaires en rec- 
tangles de 8 lignes élémentaires sur 6 colonnes élemen- 
taires, appelés les "mailles". Un caractère vient 
s'afficher sur l'écran dans une maille. Les mailles 
sont réparties en lignes et colonnes. Il faut bien dis- 
tinguer ces lignes et colonnes qu'on appellera "macros- 
copiques" des lignes et colonnes élémentaires. L'écran 
est formé de 28 lignes sur 4ÿ colonnes macroscopiques 
suivant un schéma donné au chapitre précédent. 


Maintenant, on fait la remarque que les caractères 
que l'on à à afficher dans une maille appartiennent à 


un jeu restreint : alors qu'il y a 2% combinaisons pos- 
sibles (il y a 6x8-48 points dans chaque maille, chacun 
pouvant être allumé ou éteint), on n'affiche en fait 


que, au plus, 256 caractères possibles (y compris les 
contrastes inversés). On va alors coder l'information 
en deux fois : 


Dans une première mémoire (vive obligatoirement), de 
nombre d'octets égal au nombre de mailles sur l'écran 
(donc 112ÿ sur l'ORIC), on mettra le code du caractère 
qui doit figurer dans chaque maille. Si E est l'adresse 
d'origine de cette mémoire (489ÿÿ), l'adresse correspon- 
dant à la maille de coordonnées X,Y est 4809f+4ÿ*xy+x 
(la formule est légèrement différente de celle de la 
page 97 qui tenait compte des lignes et colonnes réser- 
vées)(voir schéma page 96). 


On à ensuite une seconde mémoire (qui peut être de la 
mémoire morte) qui va contenir la correspondance code- 
dessin. Cette mémoire s'appelle le générateur de carac- 
tères. Appelons G son origine (46ÿ8ÿ ou 47194 sur 
l'ORIC). Il y a dans cette mémoire 8 octets pour chaque 
caractère. À l'adresse G+8*R+L se trouve un octet dont 
les 6 bits de droite sont l'image de la ligne élémen- 
taire L qu'il faut pour dessiner le caractère de code R. 
L est compris entre ÿ@ et 7. R est compris entre ÿ et 
127 car les motifs en contraste inversé sont déduits 


de leurs correspondants en contraste normal : le système 
utilise R AND 127 si R>128. En fait, seul R>32 donne un 
caractère ; en dessous, le code est considéré comme 
attribut. 
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Essayez le programme : 


19 G-46ÿ8ÿ:R=65:REM CODE DE ‘A 
29 FOR L=ÿ TO 7 
39 PRINT PEEK(G+8%xR+L):NEXT 


Vous obtenez les impressions : 


8 = 99991090 soit Men or 
29 = 99019199 . .. ©. . . 
34 = 99199919 . . . …. ©. 
34 = 99190919 e. . . …. ©. 
62 = ÿÿ11111ÿ eee. 
34 = 99199919 .. . . e. 
34 = 99199919 e. . …. …. ©. 
34 = 99199919 . . . …. ©. 
9 = 00909000 5 ta dur 


On voit comment cela fait dessiner un A. 


L'ORIC a deux générateurs de caractères d'origines 

G1=-46ÿ89, c'est le générateur de caractères standard 
et G2=47194, c'est le générateur de caractères auxi- 
liaire. 


Le jeu auxiliaire s'obtient comme on l'a vu après 
l'attribut 9 ou partout, en mode LORES 1. Il est formé, 
en normal, de petits dessins (voir photo page 93) qui 
correspondent au TELETEL anglais et n'ont pas grand in- 
térêt pour nous. Mais on va changer cela. 


En effet, sur l'ORIC, les deux générateurs de carac- 
tères sont en mémoire vive (en fait, il en existe une 
copie en mémoire morte qui est copiée dans la zone ap- 
propriée de mémoire vive à la mise sous tension ou 
lorsqu'on fait RESET). Cela veut dire que tous les ca- 
ractères sont programmables, c'est-à-dire que leur forme 
est modifiable à volonté par des POKE dans les adresses 
voulues. 


Ceci a des applications prodigieuses : on peut créer 
le jeu de caractères que l'on veut en modifiant certains 
dessins de caractères ou en les modifiant tous éventuel- 
lement. Ceci permet par exemple les lettres grecques, 
certains signes mathématiques, les caractères accentués 
du français pour un mini-traitement de textes. Cela per- 
met de créer des caractères graphiques comme des in- 
sectes, des envahisseurs ou autres... 


Nous allons par exemple créer une balle, en remplace- 
ment du caractère '*', Pour cela nous dessinons notre 
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balle dans sa matrice 8x6, d'où les valeurs des lignes 
en binaire puis en décimal. 


se 009999 = 9 
eee... 911119 = 39 
..e.e.e 111111 = 63 
eee 111111 = 63 
eee 111111 = 63 
eee 111111 = 63 
eee. 911119 = 39 

: 090909 = 9 


On met ensuite les données en DATA et il suffit du 
programme suivant 


Programme D-1A 


19 PRINT " x" 

29 PRINT " *k x" 

39 G=-4698ÿ:R=ASC("x") 

4ÿ FOR L=@ TO 7:READ X 

59 POKE G+B8*R+L,X:NEXT 

199 DATA ÿ,39,63,63,63,63,30,9 


On voit que toutes les étoiles de l'écran se trans- 
forment en balles y compris celles du listing du pro- 
gramme. Il n'est donc peut-être pas très indiqué de 
transformer les caractères courants : les listings des 
programmes deviendraient illisibles, encore qu'on puisse 
toujours revenir à la normale en faisant RESET ou CALL 
62512. 


C'est pourquoi il est préférable de modifier plutôt 
le générateur de caractères auxiliaires (d'origine 
47194). On affiche les caractères auxiliaires en mettant 
des attributs 9 (retour aux caractères standard avec 
l'attribut 8) ou en se mettant en mode LORES 1. 


Exercice 7.1 


Obtenez la balle avec le jeu de caractères auxiliaires. 


Nous allons maintenant dessiner une petite maison, 
ayant l'aspect ci-contre. Il 


DU EN faut d'abord faire le "réper- 


toire" des caractères dont nous 
avons besoin. 

Nous proposons : 
3 GQA)N 8) tc) Qi) EE) 
Gp") DL Q "2 
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d'où les données 

À 1,2,2,4,8,16,32 ; B : 32,16,16,8,4,2,2,1 
C : 63,9,9,9,9,9,9,9  ; D : 9,9,9,9,0,9,0,63 
E 8 fois 32 ; F : 8 fois 1 

G 63, 7 fois 32 . H 63, 7 fois 1 

I 7 fois 32, 63 . J 7 fois 1, 63 


D'où le programme qui commence par l'impression de la 
maison en caractères ordinaires, d'abord. Ensuite on 
transforme le jeu de caractères et enfin on met les at- 
tributs 9. 












PROGRAMME Ds 
LA FRIHT" CCCDOC" 
à FRIHT" A E" 
34 PRIHT" A E" 
4& FRIHT" HOCECCCCCE" 
“sg PRIHT" F ACE GGEE" 
64 FRIHT" FE F GGEE" 
FA PRIHT" FE F CCE" 
8@ FRIHT" JOICJODODT" 
où Gedrlfid 
La FOR KHeës TO F4 
119 FOR Len TO 
120 READC K:POKE G+S#R+L , # 
134 HEAT L'HEXT K 
148 FOR 1=4 TO Z6:PLOT GLS: HEXT 
15Q@ DATA LS, 46 16. LE BE US, 16: 16480 dE El 
164 DATA 653.4,09.0@, + 2: EE, 1 Gi 1 A4 1 Es 6 GA 
174 CATA SE HE, BE 382, 32,32. Ba dalatadetotslii 
189 CATA 65 148.25 22 de, 32,58 sÉgadatadilataildil 
198 DATA SEE, 3 s da dadadototils les 
Exercice 7.2 


Faites que la maison soit imprimée plus au milieu de 
15 LE ! | 
l'écran et qu'il n'y ait pas le Ready. 


Exercice 7.3 


Le coin inférieur droit de la fenêtre n'est pas satis- 
faisant. Remédiez-y. Ajoutez une cheminée. 
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CARTE DE FRANCE 


Pour montrer notre maîtrise des graphiques, nous al- 
lons dessiner une silhouette de la France. 


La méthode est exactement la même que pour la maison 
à ceci près qu'il y a beaucoup plus de caractères à 
"programmer". 


La première chose à faire est de tracer une carte de 
France dans une grille géométriquement semblable à la 
maille de l'écran. On utilise une grille de 7 sur 7,5 
comme figure ci-dessous : 
















COR EU 

co TC RRIT 
LEZ 
CRLRIT IT EE 
HIT CITE 





















&l: | Pl 
CEETTBEIITITITTIITTI TER 
LCI ELCEPETTNEE ETES 
SR. PRE lt 
CETTE EME RATE TT fe 
CEITITITITIT Erle | 
[IT] [ITITIJ 


L 























































La figure montre aussi dans chaque carreau frontière, 
le caractère auquel se substituera le motif qui est dans 
ce carreau. On commence par espace qui reste tel quel, 
! qui devient le plein puis "# etc... 


La première étape sera d'imprimer la France avec ces 
caractères. " sera imprimé par CHR# puisqu'on ne peut 
le faire autrement. On remplace le ‘Copyright' qui est 
dans le même cas par '*' ce qui évite un 2ème CHR$ÿ. Le 
programme devra être tapé en mode minuscules puisqu'il 
y àa des minuscules à faire. Attention de taper les mots- 
clés Basic en majuscules (avec 'Shift'). 


La deuxième étape est de fournir les données de chacun 
des carreaux. Pour cela on examine chaque carreau super- 
posé à une minigrille 6x8. 


114 


LA DECOUVERTE DE L'ORIC 


On aura : 

pour ! 63, huit fois 

pour " #ÿ@,1,15,31,63,63,63,63,63 
pour # 12,69,62,62,62,63,63,63 
———- etc. --- 


On aura donc une série de DATA commençant par 
-.. DATA 63,63,63,63,63,63,63,63,9,1,15,31,63,63,63,63, 
12,69... 
DATA 62,62,62,63,63,63,... 


C'est trop long ! Il y a 89 carreaux concernés, donc 
649 nombres. Chacun prend -avec la virgule- 2 ou 3 oc- 
tets donc 2,5 en moyenne soit 16ÿÿ octets. Ce n'est pas 
tant pour la taille-mémoire que pour la frappe que nous 
allons essayer de simplifier. 


Nous allons essayer de remplacer chacun des nombres 
qui viennent par un caractère. C'est possible puisque 
les nombres vont de ÿ à 63 et on pourrait prendre comme 
correspondance la fonction "code-32". La valeur 2 pose 
une difficulté car elle correspond à " qui ne peut être 
mis en DATA. Heureusement, nous n'en avons pas. Sinon, 
il aurait fallu mettre un test. Les caractères , : ‘! 
et espace en tête doivent être fournis entre guillemets 
dans les DATA. 


D'où le programme. 


19QQ REM 

1001 REM CARTE DE FRANCE 

1002 REM à 

1918 DATA 1" TR >", PAK", 
@Px" : , 

1020 DATA " K"," LA" UM 7 LL PP", KANYE, BEXX 

KXPPX 

1030 DATAK_77////, PHAPPPH PAM RTE AM AS Pan sss 5 GPL 

" " R_" 

1040 DATA “ œP" : " sn L nprsssssan G PHXC_ ” R____" j " 

1050 DATA MNT IMPR SE Ma@PPXTE "HS M GC 

SP : j sas 

186@ DATA "/+!107'#",FFPORER #1! 04 M de PEROU 

in 


1078 DATA ann OF PA: " BR Mi PR ol nee rt PURE 
108Q DATA "?-''H#I "HAPFER LU THAT US GEBRPPU UE II 
“1” 

1499 DATA PKXXPEPX. " ’ 
1108 DATA "litre nn 
1119 DATA us PR TA UAM SSJS US LT! ST am tan 
,"#P BER 

1184 GATA "sl Ve PAE 
xx 

1138 DATA 7-1! . "TER 


SJSJS 





ne BRAS 


DDR TEE EL 
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G=47104:FOR R233 TO 113 
REAC R$:FOR Le TO 7 

SCC MIDSC AS, L+1: 1 22-32 

1230 POKE G+B*R4L, A: HEXT :NEXT 

1300 CLS: SP$="":PLæ"" 

1318 FOR I=1 TO 49:SPS=SP#+" ":PLS=PLS+" LU HEXT 
1329 PRINT: PRINT: PRINT: PRINT 

1339 PRINTLEFTSCSPS, 21 2; CHRSC 34 ); #8" 
























1348 PRIHTLEFTSCSPS, EM" III" 

1352 PRIHTLEFTSSP#S,152;"" [CIRE 

136Q PRINTLEFTSSPS, 159i;"-—,-QIII11111234" 

1374 PRIHTLEF TS PS, 12): "5 BIINITIITIITI7SS" 
138Q FRIHT" silési";LEFTSCFLS. 15e" 
1320 FRIHT" B'iLEFTSEFLS, Z@5i "A" 

148€ PRINT" BCD": LEFTSFLS, 162 

1418 FRINT" EF"iLEFTSPLS, 1553; "6H" 
142Q PRINTLEFTSCSPS, 145:"I";LEFTSCPLS, 145: "0K" 
1454 PRIHTLEFTSCSPS, 143; "L';LEFTSEPLS,1409:"m" 
1440 PRIHTLEFTSCSPS, 152; "N"3LEFTS$EFLé. 13033: "0F" 
1458 PRIHTLEFTSCESF Si "GO" LEFT#CFLS. 145:"R" 


j1: "ET": LEFT#ÉFLS. 1353"0" 
"LEFTSCELS. 145; vpi" 


‘ 


FÉIHTLEFTS 
F& FEIHTLEFTS 
FRIHTLEFTS 
PRIHTLEFTS 
























1453 "" 3: LEFTSCPLS, 16 | 
si" LIT I iEebel ie 






siSii"efahiltlli k1* 
$, EG; "map" 


PLOT SI: GTHEXT 


Dans le listing ci-dessus, à cause de l'imprimante 
utilisée, le signe £ ("livre sterling") apparaît comme 
un "souligné" ('_'), par exemple, voir la ligne 119. 


De 1919 à 1139 on a les DATA voulues. On a ajouté le 
dessin d'un damier en remplacement de 'q' car cela nous 
servira ultérieurement. 


De 1299 à 1239, on trouve la conversion des données 
et leur incorporation en mémoire. 


De 1399 à 153%, on trouve l'impression de la France 
avec les caractères du jeu standard. Remarquez comment 
on imprime des espaces ou des ! multiples. La France 
n'apparaît telle que nous la connaissons qu'après exécu- 
tion de 1699 qui fait passer au jeu auxiliaire. 


Le remplissage du générateur de caractères est long 
mais une fois qu'il est fait, on peut réobtenir la Franc 
en faisant seulement RUN 139ÿ. La photo de la page sui- 
vante montre le résultat obtenu. Les caractères qui ap- 
paraissent sur la ligne du haut sont dûs à une petite 
erreur de conception de l'ORIC : le 2ème générateur de 
caractères et la mémoire d'écran se recouvrent à partir 
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de l'adresse 48ÿ9ÿ (code caractère 112, c'est-à-dire 
‘p'). Tant qu'on ne redéfinit pas les caractères jusque- 
1à, cela va : sinon, les premières lignes de l'écran 
sont troublées. 





Nous demandons aux lecteurs Corses de bien vouloir 
nous excuser de ne pas avoir fait figurer leur belle 
Ile sur notre carte, ainsi d'ailleurs qu'aux habitants 
des Îles côtières qui n'apparaissent pas. Pour les dé- 
dommager, nous proposons l'exercice suivant : 


Exercice 7.4 


Cartographiez la Corse grâce à 
la grille ci-contre. 


Exercice 7.4 Bis 


Pour les lecteurs francophones, faites de même une 
carte de la Belgique, ou de la Suisse, ou du Québec... 
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QUIZ GEOGRAPHIQUE - LES SOUS-PROGRAMMES 


Maintenant que nous disposons d'une carte de France, 
nous allons pouvoir l'utiliser pour jouer à un jeu 
utile. IL va nous permettre de réviser nos connaissances 
géographiques. Il s'agit de reconnaître l'emplacement 
des principales villes de France. Il y a deux formes de 
jeu, que nous implanterons toutes les deux. 


A. Le programme marque en damier un carreau sur l'écran; 
vous disposez de 2ÿ secondes pour taper le nom de la 
ville qui s'y trouve. 


B. Le programme donne un nom de ville. Vous devez, à 
l'aide des touches mouvement de curseur, amener le 
caractère (damier, remplacement de ‘'q'}) sur 
l'emplacement de cette ville. Tapez Return quand 
vous êtes satisfait de l'emplacement atteint. Bien 
sûr, vous disposez d'un temps limité. Ceci est la 
base des programmes d'enseignement assisté par ordi- 
nateur, très répandus maintenant. Bien entendu, on 
peut les perfectionner en examinant les erreurs 
faites, en affichant des indications pour vous aider 
et en comptabilisant les résultats. 


Nous avons vu précédemment tous les éléments qui per- 
mettent de le faire ; nous nous bornerons ici aux solu- 


tions les plus simples. 
Le programme obéit à l'ordinogramme général ci-contre. 


Cet ordinogramme est simplifié. Ce qui apparaît fon- 
damentalement, c'est que, en deux endroits, il faut 
exécuter la même opération : afficher la carte de France. 
Le programme de la carte est bien trop long pour le ré- 
péter en deux endroits. 
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Choix de la forme 
À ou B 
Qui € Non 
Tirage au hasard Tirage au hasard 
de la ville cherchée de la ville cherchée 


Affichage de la Affichage de la 
carte de France carte de France 


Marquage de | 
la ville Lit caractère 
tapé 


Lecture de la réponse 
Qui Effectue le 
Re£UEN mouvement 


T 
se Analyse de 
écoulé 2 
la reponse 


Ce qui serait bon, c'est de disposer du mécanisme sui- 
vant. (cf figure ci-dessous). 


199 ALLER À 1969 












Le programme à répéter est 
écrit une seule fois, à 
ES partir de la ligne 1999 par 






299 ALLER À 1999 


exemple. 
DRAPCRREE ! A chaque fois qu'on doit 
i l'exécuter (ici en 199 et 
RENÉE --* 299) une instruction qui 


ressemble à un GOTO fait 
sauter à 1999, où la séquence est exécutée. 
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La séquence se termine par une instruction qui veut dire 
“Retournez d'où vous venez". Etant venu de la ligne 19, 
retourner juste en-dessous de 1ÿÿ (parcours en trait 
plein). Etant venu de 29ÿ, retourner juste en-dessous 
de 299 (parcours pointillé). 


En somme, c'est un mécanisme de saut qui se "souvient" 
d'où il vient. Ce mécanisme existe en Basic. 


Le programme utilisé plusieurs fois s'appelle un sous- 
programme. L'instruction de saut vers le sous-programme 
est l'instruction d'appel GOSUB: 1ÿÿ@ GOSUB 199ÿ. 


L'instruction de retour s'écrit tout simplement RETURN 
(les lettres RE T U R N, pas la touche 'Return'). 


Le programme a donc la structure : 


199 GOSUB 1999 
: programme principal 
299 GOSUB 1999 


1768 : sous-programme (ici de tracé 
1619 RETURN de la carte de France). 


Cette structure est extrêmement importante et puis- 
sante. Un programme peut appeler différents sous-pro- 
grammes. Chaque sous-programme peut en appeler d'autres. 
Dans tous les cas, l'ORIC s'y retrouvera pour effectuer 
les retours. 


Cette simplification de notre travail étant acquise, 
nous avons besoïn d'une liste de villes avec leur nom 
et, pour chacune, ses coordonnées. X (de 1 à 38) et Y 
(de 1 à 26) qui la situent sur l'écran. Bien sûr, ces 
coordonnées seront approximatives, comme le dessin de 
la carte. 


Nous nous bornerons ici aux 11 villes suivantes (cela 
évite les instruction DIM, et rien n'empêche d'en ajou- 
ter ultérieurement). 
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Nantes 
Marseille 1 Strasbourg 


Lyon St-Etienne 
Toulouse (Le Havre 
Nice | Lille 
|Bordeaux 





Les préliminaires du programme sont alors simples. Le 
tableau précédent est mis sous forme de DATA (lignes 1%, 
15, 29) qui sont ensuite lues (lignes 3% et 4@). 

Ensuite, c'est le choix du mode (ligne 5% et 6ÿ). (Pour 
une utilisation réelle du programme, il faudrait impri- 
mer beaucoup plus d'explications que nous ne le faisons). 


Avant de taper ce programme, chargez votre programme 
carte de France et ajoutez une ligne 1#ÿ@ÿ REM. Changez 
la ligne 1619 en 1619 RETURN. Ajoutez aussi un 125% 
RETURN: cela sépare en un autre sous-programme le rem- 
plissage du générateur de caractères qui n'a pas à être 
répété. 

FRLCIGRANME Ces QUIZ GÉOGRAPHIQUE 


14 DATA FARIS, MARSEILLE, LYON, TOULOUSE, HILE 





: BORDEALE 
FIAMTELE 








15 DATA STE QG, SAINT ETIENNE LE HAVYRE, LILLE 
EA DATA LS, 8,26 srl El El. ELA AE 18 16 VE, LE 





Er. 19. 


+, 5 





SA FOR Ven TO LA:REGD HOMSE VOS HENT 

4% FOR Meg TO LE REND II ie 2: MEET 

45 CLS: FRINT'UN PEU DE PATIENCE SYP':GUSUS 1646 
BE :IHEUT'A OU EE "is 

ee We TMTE {TL ÆBMCE 1 40 

EE IF ses" GOTO SA 














En fait, le tirage de la ville voulue est commun et 
en 55 


55 V=INT(II*RND(1)): 
Les initialisations du temps se font par un simple DOKE 
639,65535 en 72 et 51%. 
Jeu A 


On se trouve après 7ÿ 

FA PRINT'JEU AiVOUS TAPEZ LE NOM DE LA WILLE MARCGILIEE 
M CHR LEE à 

" PUIS Return” 
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GOSUE SA: OOKE 6354 
i LOU a deu 
GOSUE 130%: CH="0: 
IF 65535 
ES=KETS: IF Ez"" 
IF Eé=CHRSE 135 
PRINT E$; 
CHeCé+Eé: COTO 5 
IF CéeHOtMge"s GOT 
CLS: PEINT "NON" 
CLS: PRINT'FERDIU" 
1884 CLE:PRINT'GAGHE" 
134 
135 
EE 


IF #$="QUT" GOTO 


EHD 


Le programme est bâti 
tamment la construction 
C$ de la ville proposée 
119). 

En 72 et en 16ÿ, délais 
En 89, on affiche la ca 


FLAT %, 

DEEKS 634 12408 
GATO 85 

GOT 


: GOSUE 
GOT 188 


IHEUT "OH FECOMMENCE 
si 


ETS 
“al 
GOTO 
154 


184 
SGA @ : GOTO FS 


Mir 


avec des matériaux déjà vus, no- 
caractère par caractère du nom 
par l'élève (instructions 8ÿ à 


pour fixer l'affichage. 
rte par GOSUB 1399 (le générateur 


de caractères a été rempli une bonne fois par GOSUB 19ÿ@ 
en 45). 113 est le code du damier pour marquer la ville : 
on l'inscrit aux coordonnées X et Y de la ville, cal- 
culées en 75. 


car WAIT perturbe- 
on utilise un sous- 


Les délais sont faits par boucle, 
rait les calculs de temps. Là encore, 
programme en 59ÿÿ. 

Le reste du programme ne devrait pas faire de diffi- 
culté ; nous passons donc au jeu B. 


Jeu B 


Nous sommes cette fois après la ligne 599 
38 FPRIMT'UEL FE: C i TOUCHES CURSEUR, 















SAS PRINT" SUR LA VILLE VOULUE" 
PRINT" OCHEE  "iNOMSCU Ii" HE: GUGUE Sang 
. vd: DOKE É20, 65525 
Euro L'éu 


ES=CHRSK 9 ) 
SEC HSE! 
IF BB=CHRISC 
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559 IF ES=CHRS&( 112 THEN Y=v-1 

564 GOTO 52 

mP@ IF Hell") AND Yale yi GOT 166 
sr CLS: PRIHT'MON": GOSUE SG@4: GOTO S15 


X et Y initialisés à 4 et 11, indiquent l'emplacement 
du curseur gris (code écran 113). 
Là encore, pour des raisons d'interactivité, on utilise 
KEY# pour examiner la touche enfoncée. Selon la touche 
utilisée, le mouvement est réalisé, c'est-à-dire que X 
ou Y sont modifiés. La touche ‘Return' est testée par 
CHR$ÿ puisqu'on ne peut la mettre entre guillemets. 


Le mouvement, ligne 537 et 529, est réalisé, replaçant 
l'ancien contenu C en X,Y. Le curseur gris est alors dé- 
placé à la nouvelle position. 


Lorsque l'utilisateur tape 'Return', le X et le Y at- 
teints sont alors l'emplacement proposé. Celui-ci est 
comparé aux données des tableaux II et JJ. 


L'ordre des instructions, en 51ÿ#, 515 est tel que lors- 
que la réponse est NON une autre tentative est possible. 
On reprend alors à la position proposée à l'essai pré- 
cédent, ce qui permet d'atteindre le but par des faibles 
corrections successives. 

Pour l'ensemble des essais, le temps est limité à 3 mn 
(contre 3% s dans le jeu A). 


Le sous-programme en 5#9ÿ crée un délai. 
SGA FOR Rel TO 1488: HEXT : RETURN 


RECAPITULATION 


Ce programme, qui est l'archétype des programmes uti- 
lisés en enseignement assisté par ordinateur, n'utilise 
que les techniques simples qui ont été progressivement 
introduites au cours du jeu "devinez un nombre" et pour 
la programmation du dessin d'une maison. 


La seule technique nouvelle introduite ici - et elle 
est très importante - est celle des sous-programmes. 


Avec un simple GOSUB, le tracé de la carte de France 


est effectué chaque fois que nécessaire dans le pro- 
gramme. 
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La fonction KEYS apporte également une bonne interac- 
tivité dans le dialogue homme machine, essentielle dans 
cette application. 


Nous ne proposons pas ici d'exercice sur ce programme, 
construit pas à pas, mais nous ne saurions trop encou- 
rager le lecteur à s'exercer à y apporter toutes les 
modifications qu'il jugerait bon d'essayer. Vous pouvez 
notamment vous inspirer des dernières versions du pro- 
gramme B pour gérer les "scores" obtenus par différents 
élèves. Vous pouvez aussi changer les délais et ajouter 
des villes (Dans ce cas, attention à DIM...) 


Remarque : Le sous-programme carte de France a été 
écrit à partir de 1999, de façon à en permettre une uti- 
lisation dans plusieurs programmes. Vous le stockez sur 
cassette, et lorsque vous souhaitez l'incorporer à un 
programme à écrire, vous le chargez en premier. Puis 
vous écrivez votre programme de ÿ à 999. 


Cette façon de procéder, qui nous a évité la recopie 
fastidieuse d'une partie de programme, est généralisa- 
ble. Mais attention ! Vous ne pouvez l'utiliser qu'une 
fois par programme. 


Maintenant que nous avons des affichages très élabo- 
rés, il nous reste à donner un peu de mouvement. 


NOTIONS SUR LES DESSINS ANIMES 


Nous nous bornerons ici aux premières notions permet- 
tant d'animer l'affichage de l'ORIC. 


La première méthode qui vient à l'esprit est la mé- 
thode classique utilisée au cinéma. La scène est décom- 
posée en un grand nombre de dessins qui sont projetés 
successivement. 


Avec l'ORIC, qui est pourtant un des micro-ordinateurs 
personnels les plus rapides, se pose le problème du 
temps de remplissage de l'écran pour obtenir une image. 
D'autant plus que, pour ne pas avoir trop de scintille- 
ment, il faut afficher au moins 15 images seconde. Ceci 
nécessite le recours au langage machine qui est étudié 
dans un autre ouvrage de cette collection. 


Pour pouvoir utiliser Basic, il faut passer d'une 
image à la suivante en ne changeant qu'une très petite 
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partie de l'image. On peut utiliser, au choix, des PRINT 
ou, mieux (plus rapide), des POKE dans la mémoire 
d'écran ou des PLOT. 


MOUVEMENTS D'UNE BALLE 


A titre d'exemple d'animation, sans modification im- 
portante d'une image à la suivante, nous allons faire 
se déplacer une balle sur l'écran. Cela conduira à un 
embryon de jeu de tennis. La balle, nous l'avons par 
modification du générateur de caractères au début de ce 
chapitre. 


Pour déplacer la balle de gauche à droite, il faut 


- créer la balle. On implante le programme D-1A sous 
forme de sous-programme à partir de 599 et on fait 
19 GOSUB 544. 


- imprimer la balle 
29 X=s:.s °Y=s ss. 2PLOT X,Y,"x" 


- revenir sur la balle et la remplacer par un blanc, 
puis imprimer une nouvelle balle 1 cran plus loin. 
39 PLOT X,Y,32:X=X+1:PLOT X,Y,"*" 


- boucler sur l'instruction 3% : 4ÿ GOTO 3ÿ 

Essayez le programme formé par les trois instructions, 
19, 29, 39 ci-dessus. 

Il y a plusieurs défauts 


- il faudrait vider l'écran et se placer sur la ligne 
centrale (13) ; 


- lorsque la balle a parcouru tout l'écran de gauche à 
droite, on a un message d'erreur ; 


- il n'y a pas de réglage de vitesse. 
La première objection se résout facilement par le 
choix Y=13. 


Pour la troisième, il faut introduire un délai avant 
de faire le GOTO en 3%, par exemple à l'aide de l'ins- 
truction WAIT 
4ÿ WAIT D:GOTO 3ÿ 


D sert à régler le délai dans la vitesse de déplacement. 


Pour la deuxième objection, on peut décider le mouve- 
ment suivant : aller de gauche à droite, puis, quand la 
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balle arrive à l'extrémité de la ligne, aller de droite 


à gauche etc. 
Pour cela, il faut tester xX. 
X = 38 ou 1. 


Pour que la balle se déplace à gauche, 
59 :PLOT X,Y,32:X=X-1:PLOT X,Y, 


D'où le programme 


Le sens est inversé quand 


il faut écrire 


mx 


FÉCIGEAMME Ci 
AA : CLS 

FLOT Li “ : n x "1 
+1: FLOT 
GOTO 34 


14 GOSURS 
LA melirels: 
SH FLOT #,4%,32: 
Hi WAIT C'IF 

st FLOGT RER 
GS MAIT C:IF # 
FA GOTO 5 
SA Geddes: ReASCE EN 

Si FÜR Left TO F:READ # 
Se0 FÛKE GHSÆR+L Se MNERT 
539 KRETLFH 

S40 DATA AAC, 


: DS 


sf 
es 











AL AL 


4 
Has 


ae 





Avec D = 6, vous réalisez un véritable hypnotiseur. 
Avec D < 3, la balle va assez vite pour que l'on croie 
voir un sillage. Avec D > 10, les saccades du mouvement 
sont apparentes. 


Exercice 7.5 


Faire osciller 
délai varie de 1 


Exercice 7.6 


Faire osciller 


Exercice 7.7 


La valeur du délai entre 1 et 10. (Le 


à chaque aller et retour). 


La balle du haut en bas de l'écran. 


Faire aller la balle en diagonale (du coin gauche à 
la dernière ligne position 26 et retour). 
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TENNIS 


Nous sommes prêts maintenant à jouer au tennis. En 
fait, notre jeu sera rudimentaire. Partons de la balle 
qui oscille de gauche à droite, nous disposons un joueur 
à droite et un joueur à gauche. Le joueur de droite ne 
doit pas laisser la balle passer la position 38 sur 
l'écran. Pour manifester qu'il rattrape la balle, il 
doit appuyer sur une touche. Nous adopterons la touche 
/. Pour le joueur de gauche ce sera la touche Z. Le pro- 
gramme reconnaîtra la touche grâce à un KEYS$. 


Par ailleurs, nous imposons aux joueurs de ne pas ap- 
puyer trop tôt sur leur touche : si le joueur de droite 
appuie sur / avant que la balle ne soit en colonne 34, 
ou si le joueur de gauche appuie sur Z avant qu'elle 
ne soit en colonne 5, il concède un point à son adver- 
saire. 


A chaque point, le score est affiché. Le service sera 
effectué en appuyant sur une touche quelconque. Lors du 
service, la balle part du milieu de l'écran. Le sens du 
mouvement est tiré au sort. 


Enfin on a implanté le mouvement de la balle dans un 
sous-programme : 49. 


D'où le programme D-5 dont il y aurait lieu de perfec- 
tionner la présentation pour obtenir un jeu effectif. 
En particulier, le fait que les colonnes z et ÿ soient 
blanches est trompeur pour le joueur de gauche. 


FROGRAMME DS 
MIMI-TENMIS 


16 GOSUBSAG : SGe% : EDeQ: Des 

15 CLS: PRINTSG; SPC SO SC: KSIÎS:GET 45 

84 IF END 15%.5 GOTO 45 

25 MAIT Dikek4liTF KegS THEH SGeñG+l: GOTE 15 
34 GOSUE Gé: ABSLETS:IF ARezteS COTE &S 

BS IF Kèe34 COTO 45 

4 SGeSG+1: GOTO 15 

+5 UAIT CikKek-1l:IF Ke% THEH SDeSD+i: GOT 15 
Sa GOSUE AG: AS=KE SE: IF A$g<SNE" GOT 45 
SOIF Ké=S GOTO £S 

SA SDesC0el: GOT 15 






PLUIT LE EU RETURN 
G A: R=ASCE HN 

FOR Le TO F:READ # 

POLE G+SÆR+L #4: NEMT 

RETLIEH 
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LA COULEUR EN HAUTE RESOLUTION - 
LA COMMANDE FILL 


Il nous reste à voir une dernière instruction gra- 
phique de l'ORIC, très puissante mais assez délicate, 
FILL. 


Revenons d'abord au schéma de l'écran haute résolution 
en tête de ce chapitre. Si l'on met par POKE un octet à 
une adresse de 4ÿ996ÿ à 48959 on doit avoir un affichage 
sur l'écran : 6 points élémentaires correspondant à la 
case mémoire vont se trouver allumés ou éteints selon 
la valeur (qui, elle, est sur 8 bits) écrite dans la mé- 


moire. 


Toute la difficulté est dans la correspondance entre 
le motif binaire d'allumage (6 bits) et la valeur à met- 
tre (8 bits). Voici la marche à suivre 


1- déterminer d'abord le motif d'allumage. On procède 
exactement comme nous avons fait pour une ligne élé- 
mentaire de caractère programmable. 


Exemple : supposons qu'on veuille un pointillé comme 


CIE T5 
on a ÿÿ1191 en binaire, donc la valeur 13. 


2- le problème est que l'ORIC considère les valeurs in- 
férieures ou égales à 31 comme des attributs et non 
des motifs d'allumage. 


La règle est la suivante : si la valeur obtenue est 
<31, on ajoute 64. Dans notre exemple, on obtiendrait 77. 
Essayez : HIRES:POKE 4ÿ96ÿ,77. Vous obtenez bien ..s 


Si la valeur est supérieure ou égale à 32, on peut au 
choix la prendre telle quelle ou ajouter 64, le résul- 
tat est le même. 


Que font les octets dont le bit 7 est à 1 ? Eh bien 
le bit 7 (qui revient à ajouter 128) a pour effet d'in- 
verser le motif dessiné. 


Exemple : POKE 4996ÿ,295 donne le pointillé =. .e 
Maintenant, si k<31, 128+k donne le même attribut. 


En résumé 


ÿ 128 

; attributs è attributs 

31 159 

32 16ÿ à ; 

: : è dessins inverses 
: dessins . de 32 63 

63 191 Ur 
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64 192 é 

. : . dessins 
: dessins : : 

95 223 inverses 
96 À ; 224 ï 

$ mêmes dessins ; dessins 
127 que 32..63 255 inverses 


Etant donné un motif, il y a trois manières de l'obte- 
nir. Soit k la valeur 6 bits correspondante. ÿW<k«<63. 


Si k<31, on a déjà £1=k+64. Soit k'=63-k ;: c'est la 
valeur du dessin complémentaire. k' est >31 donc le des- 
sin complémentaire s'obtient par k' et k'+64. Par suite 
le dessin primitif s'obtient par k=128+k'-191-k et 
k=128+k'+64=255-Kk. 


Exercice 7.8 


Donnez les valeurs st k>32. 


Pour les valeurs £<31, les attributs jouent le même 
rôle qu'on a vu en basse résolution, résumé par le ta- 
bleau de la page 98. La propriété fondamentale qui 
demeure est qu'un attribut est valable depuis sa posi- 
tion jusqu'à la fin de la ligne élémentaire où il se 
trouve, à moins que, plus à droite, sur cette ligne élé- 
mentaire on ne rencontre un autre attribut qui le con- 
tredise : c'est alors lui qui devient valable jusqu'à 
la fin de la ligne élémentaire. 


Lorsqu'on met un attribut de couleur de fond, on ob- 
tient toute la fin de la ligne élémentaire concernée de 
la couleur indiquée. 


Exemple : POKE 4ÿ996ÿ,2ÿ rend bleue toute la lère ligne. 
Si l'on fait ensuite POKE 4#961,17, la ligne devient 
rouge, sauf le premier segment qui reste bleu. 


Il y a une constatation importante à faire : on ne 
peut pas, en horizontal, faire varier les couleurs sur 
une distance inférieure à un segment (c'est-à-dire 6 
points élémentaires). Au contraire, en vertical, la cou- 
leur peut changer d'une ligne élémentaire à l'autre. 


Autrement dit, en mode haute résolution, la résolution 
pour les tracés en deux couleurs (fond et courbe) est de 
199 sur 24ÿ, tandis que la résolution pour les dessins 
multicolores n'est que de 199 sur 4ÿ. 


129 


LA DECOUVERTE DE L'ORIC 


L'instruction FILL 


On pourrait faire des dessins haute résolution par 
POKE en 4ÿ96ÿ et suivantes : on a vu comment éclairer 
les points voulus. Mais -on l'a vu au chapitre précé- 
dent- le Basic de l'ORIC a les instructions CURSET, 
DRAW etc... qui sont beaucoup plus simples d'emploi. 


Eh bien lorsqu'il s'agit de placer des attributs ou 
des motifs, le Basic offre la commande FILL. Elle est 
de la forme : 


FILL NLE,NS,M 
Ceci remplit du même motif M,NS segments sur NLE 


lignes élémentaires. (1<NLE<299 ; I1<NS<4Y ÿ<M<255). 
Si M est un attribut, il suffit que NS=1. 


Oui, mais où commence le remplissage ? À la position 
X,Y définie par le dernier CURSET. 


Exemple faire un fond jaune à la moitié droite de 


l'écran : 
CURSET 129,9,9 :FILL 299,1,19 


Exercice 7.9 


Faire un fond jaune sur tout l'écran. 


Exercice 7.10 


Faire le drapeau français. 


Exercice 7.11 


Couvrir la moitié haute de l'écran avec des rayures 
verticales très fines et la moitié basse avec des 
rayures moins fines. 


Il faut noter que, avant un FILL, CURSET X,..., CURSET 
X+1,..., CURSET X+2,... ...CURSET X+5,... sont équiva- 
lents puisque FILL ne peut porter que sur des segments 
entiers. Quelque soit X, le FILL commence au segment n° 
INT(X/6). 


En outre, FILL ne met pas le curseur à jour. Tous les 
FILL doivent être précédés d'un CURSET. 


Nous allons appliquer ceci pour dessiner un disque de 
couleur. Pour cela, on va faire un FILL à partir de 
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chaque segment gauche du disque donné par l'équation 
XX=29-INT(19*SOR(1-(Y-1#@)t2/19999)) et on refait un 
FILL du fond noir à partir du segment de droite donné 
par XX=2G+INT(19*xSQOR(1-(Y-19#@)t2/19999)). 


Le 19 (multiplicateur de SQR) a peut-être à être rec- 
tifié en fonction de votre téléviseur pour que le disque 
soit bien rond. Sur le nôtre, nous avons été amenés à 
la formule ...INT(ÿ.5+14*xSQOR...) 


PROGRAMME Dé 


1 HIFES 
1 FOR væl 
Ce IMTEE 





Exercice 7.12 


Faites que le disque soit clignotant (toujours bleu 
sur noir). 


RECAPITULATION 


Nous avons maintenant eu un aperçu de la plupart des 
techniques de programmation accessibles à L'ORIC, tant 
dans les domaines du calcul que dans celui des jeux et 
des traitements graphiques. 


A propos des dessins animés, nous avons vu que le 
Basic est un peu lent pour certaines applications. 


Dans ce cas, il y a un recours c'est le langage 
machine du microprocesseur de l'ORIC. 


Les techniques correspondantes seront abordées dans 
un autre ouvrage de cette collection. 
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CHAPITRE VIII 
EFFETS SONORES 


Voilà un chapitre qui va faire du bruit ! En effet, 
l'ORIC possède un petit haut-parleur avec lequel il est 
capable de produire des sons variés. 


11 y a d'abord quatre instructions qui font chacune 
un bruit prédéfini, très utile dans les jeux 


EXPLODE : bruit d'explosion ; 


PING : bruit de triangle ('"ding'" très aigu) : 
SHOOT : bruit de coup de feu ; 
et ZAP : bruit de canon laser. Gare ! si les Extra- 


terrestres se mettent à tirer ! 


Il faut noter que la combinaison de touches 'Ctrl' G, 
ou encore PRINT CHR#(7) produit le même son que PING. 
On peut même le dissimuler dans une chaîne de carac- 
tères 


Af="XXX"+CHRS(7)+"YYY":PRINT AG 


Ces sons prédéfinis ne sont que des combinaisons des 
instructions sonores de base SOUND, MUSIC et PLAY. Ils 
mettent en jeu trois voix indépendantes, chacune pouvant 
être mélangée à une voix de bruit. 


SOUND est de la forme 


SOUND NV,P,V 
où e NV est le numéro de voix 1, 2 ou 3 
si NV=4,5 ou 6, la voix (resp. 1,2 ou 3) est mé- 
langée à du bruit. 
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e P est proportionnelle à la période du son. La 
fréquence est donnée approximativement par F= 
62999/P. Cette formule n'a pas d'importance puis- 
que les notes peuvent être obtenues directement 


par MUSIC. 

e V est le volume de 1 (le plus faible) à 15 (trop 
fort!}). 
Prenez une valeur moyenne de 5 à 8. Si V=ÿ, on 
n'a pas de son immédiatement : on le prépare 


pour exécution ultérieure par PLAY. 


Exemple : SOUND 1,14ÿ,19 donne le la du violon 


MUSIC est de la forme 


MUSIC NV,0C,NO,V 
où e NV est le numéro de voix 1, 2 ou 3 
(pas de 4, 5 ou 6 : on ne mélange pas la musique 
et les bruits malgré l'opinion du Roi des Belges 
Albert ler (1)) 


e OC est le numéro d'octave dans l'échelle bien 


connue des musiciens : l'octave du milieu du pia- 
no est 3. Les numéros acceptés par Ll'ORIC vont 
de ÿ à 6. 

e NO est le numéro de note de 1 à 12 avec la cor- 
respondance 
1 DO 5 MI 9 SOL# 
2 DO# 6 FA 19 LA 
3 RE 7 FA# 11 LA4 
4 RE# 8 SOL 12 SI 


e V est le volume comme pour SOUND, en particulier 
la valeur ÿ pour exécution différée. 


Exemple : MUSIC 1,3,19%,19 donne le la du violon. 


Seul le canal 1 (ou 4) peut être activé directement. 
Les autres doivent être combinés en mode différé par 
PLAY. Les commandes SOUND ou MUSIC ont pour seul effet 
de lancer le son. Celui-ci continue ensuite. C'est 
d'ailleurs ce qui permet de faire des accords en lan- 
çant plusieurs sons. 


(1) Lorsque sa femme a fondé le concours "Reine Elisabeth de vio- 
lon", il aurait déclaré : "la musique est le moyen le plus coûteux 
de faire du bruit". Il ne connaissait pas les microordinateurs ! 


134 


LA DECOUVERTE DE L'ORIC 


Vous pouvez suivre le schéma très simple : 


lancer le son 
(SOUND ou MUSIC) 


générer un délai 
(WAIT p.ex.) 


arrêter le son 


Pour arrêter le son dans un programme, il suffit de 
faire un SOUND ou un MUSIC avec V=ÿ sur la voix concer- 
née. 





Si un programme s'arrête par STOP, END ou 'Ctrl' cC, 
alors qu'un son est lancé, le son continue. Pour l'arrê- 
ter en mode direct, il suffit de taper sur une touche 
quelconque, du moins quand on est dans le mode où les 
touches produisent un bip. On passe du mode bip au mode 
touches silencieuses et vice-versa en faisant 'Ctrl' F. 


Pour combiner des sons, la commande PLAY est plus fa- 
cile et surtout plus riche de possibilités. Elle est de 
la forme : 


PLAY S,B,E,D 
où e S (de ÿ à 7) indique la combinaison de voix de 
son pur activées : 


S = L 2* c'est-à-dire : 


k actives 


de voix actives ES voix actives 


se 
l ce 2 


Le son des voix dont on demande l'activation doit préa- 
lablement avoir été défini par un SOUND ... ÿ, ou un 
MUSIC ..., ÿ. 






3 æ 1 
3 et 2 
les trois 


sons 


135 


LA DECOUVERTE DE L'ORIC 


e B (de ÿ à 7) indique la combinaison de voix 
bruitées activées : 


B = > De 


k actives 
Le fonctionnement est le même que pour S et la défini- 
tion préalable du bruit est tout aussi obligatoire. 


e E (de 1 à 7) définit l'enveloppe du son suivant 
les schémas 








intensité 
1 2 
temps t 
he, a ——————— 
D D 
3 
— 
D 
5 7 
——— — 
D D D 
Les modes L1 et 2 sont finis dans le temps. Les autres 
sont de durée illimitée (= jusqu'à ce qu'on arrête le 
son). Les modes 3, 4 et 6 sont périodiques. 5 est le 
plus curieux : un coup, puis le son continu. Le mode 1 


avec une durée D assez longue est valable pour imiter 
le piano. Avec une durée très courte il imite un des 
modes du clavecin. 5 ou 7 avec D très petit donnent un 
son continu valable pour l'orgue ou la flûte. 


e D (de 9 à 32767) définit la durée telle qu'elle 
est figurée sur les schémas ci-dessus. Donc pour 
les modes périodiques c'est la période (la demi- 
période pour 4). Pour les autres, c'est le temps 
de croissance ou décroissance. (Bien sûr, cette 
période de l'intensité n'a rien à voir avec la 
période qui définit la hauteur du son). 
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D est exprimée en demi-millisecondes. Si D=-199ÿ on a 
un temps de # seconde. Si D<5ÿ pour les modes 1 ou 2, 
on n'entend rien. 


Pour mieux nous habituer aux différents effets pos- 
sibles, nous implantons le programme suivant 


ESSAIS D'ENVELOPPES 


19 INPUT"'E,D":E,D 
29 MUSIC 1,3,19,9 
39 PLAY 1,9,E,D 

49 GET A$:GOTO 19 


Exercice 8.1 

Quelle note obtient-on ? Que fait l'instruction 49 ? 
Question : Dans le couple SOUND...ÿ ou MUSIC...#ÿ, PLAY 
il n'y a aucun réglage de l'intensité sonore ? 


- En effet. Le palier ou le maximum de l'enveloppe 
correspond au réglage 15. Pour un mode 1 ou 2 on peut 
jouer entre la durée D et la durée réelle du son. 


LES BRUITS 


Là encore, l'expérimentation sera notre meilleur outil. 
Pour nous y aider, nous introduisons le programme 


ESSAIS DE BRUITS 


19 INPUT"P,E,D":P,E,D 
29 SOUND 4,P,9 

39 PLAY Ÿ,1,E,D 

49 GET AS$:GOTO 19 


Pour P, les seules valeurs utiles vont de ÿ à 63 avec 


9,1 sifflements 
2,3,4 réacteurs, fuites de gaz 
5 - 8 tempête, lance flamme 
9 - 16 vent 
17 - 39 machines, explosion 
31 - 63 avions, grondements. 
Il faut aussi jouer sur E et D : ainsi la combinaison 


P=31, E=1, D=-5#99 figure assez bien une explosion 
P=31, E=1, D-1#99 figure assez bien un coup de feu 
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63,4,89 figure assez bien un petit avion. 
31,4,19999 figure les vagues de l'océan... 


A vous d'expérimenter ! 


Il faut aussi essayer du côté des sons purs, des mé- 
langes de voix. Par exemple, deux voix à l'octave l'une 
de l'autre donnent un son très suave 


essayez 19 MUSIC 1,3,19,9 
29 MUSIC 2,4,19,9 
39 PLAY 3,9,7,1 


Exercice 8.2 
Produire l'accord DO MI SOL. 


Exercice 8.3 


Dans le jeu de Quiz-Géo, quand le joueur a gagné, 
faites retentir les premières notes de la Marseillaise. 
(ré ré, ré sol, sol la, Ta ré, si sol). 


Exercice 8.4 (jeu de SIMON - marque déposée) 


On établit une correspondance entre les touches 1 à 7 
et les notes de la gamme. Le programme choisit au hasard 
une séquence de 4 notes : il la fait retentir tout en 
affichant sur tout l'écran les couleurs correspondantes. 
Le joueur doit alors taper la séquence correspondante. 
Pendant qu'il appuie sur une touche le programme fait 
retentir la note et affiche la couleur. On autorise 
deux tentatives pour trouver une séquence. 


RECAPITULATION 
Nous avons maintenant à peu près exploré toutes les 
ressources spectaculaires de l'ORIC. 


Nous voici arrivés au terme de ce livre, au terme de 
notre découverte de l'ORIC. 


I1 faut convenir que c'est là une merveilleuse ma- 
chine, surtout en regard de son prix. 
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Ses possibilités sont immenses :; nous n'en avons dé- 
couvert qu'une petite partie, tant en calcul, en ges- 
tion, en machine de loisirs ou d'éducation : notre 
programme de quiz géographique vous permet de réviser 
votre géographie en vous amusant... Les possibilités de 
traitement graphique sont spécialement utiles dans ce 
contexte, et spécialement perfectionnées sur l'ORIC. 


Nous laissons maintenant le champ libre à votre ima- 
gination pour en tirer le meilleur parti. 
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ATN 


cos 


DEEK 


EXP 


FALSE 
FRE 


HEX$ 


INT 


KEY$ 


LN 


LOG 
PEEK 
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ANNEXE I 


Fonctions et mots-clés du Basic 


FONCTIONS ARITHMETIQUES 


Valeur absolue de l'argument entre parenthèses. 


Arc tangente - le résultat est en radians, com- 
pris entre -PI/2 et PI/2. 

Cosinus - l'argument doit être en radians. 
Exemple : cos(x en degrés) = COS (PI*x/189). 


fournit le contenu (compris entre @ et 65535) au 
double octet d'adresse indiquée, considéré comme 
un entier 16 bits, dans l'ordre partie basse, 
partie haute. 

Pour écrire un double octet en mémoire, voir 
DOKE page 145. 


Exponentielle e*. L'argument doit être <88, sinon 
il se produit un dépassement de capacité. 


Valeur ÿ ('fausse'" dans les expressions logiques). 


Quelle que soit la valeur de l'argument, fournit 
le nombre d'octets restés libres en mémoire. 
Exemple : juste après la mise sous tension, ?FRE 
(9) fournit 39421 (46588 après GRAB). ?FRE("") 
force un ménage dans la mémoire. 


convertit son argument (compris entre ÿ et 65535) 
en hexadécimal. 


Partie entière, ou plutôt plus grand entier infé- 
rieur ou égal à l'argument : INT(YW.5) vaut ÿ : 
(INT(5) vaut 5, INT(-Y.5) vaut -1, INT(-3) vaut 

= 3: 


(pas d'argument). Fournit le caractère actuelle- 
ment tapé au clavier. 


Logarithme naturel (népérien, ou en base e). 
Pour obtenir le logarithme de X en base Y, utili- 
ser LN(X)/LN(Y). 


Logarithme en base 19. 


Fournit le contenu (compris entre ÿ et 255) de la 
case mémoire dont l'adresse est égale à son argu- 
ment (qui doit être entier et compris entre ÿŸ et 
65535). 

Pour écrire en mémoire, voir POKE, page 148. 
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SIN 
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SQR 


TAB 


TAN 
TRUE 
USR 
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Valeur de «1. 


Renvoie ÿ si le point élémentaire indiqué est 
éteint, -1 s'il est allumé. 


POS(@9) fournit la prochaine position d'impression 
libre sur la ligne d'écran (position du curseur). 


Fournit un nombre pseudo-aléatoire compris entre 
® et 1. Voir l'explication détaillée au chapitre V. 


Renvoie le code-caractère présent sur l'écran 
aux coordonnées X et Y fournies comme arguments. 


Fonction "signe" : 1 si X>ÿ, -1 si X<ÿ et #ÿ si 
x=#. 
Sinus - l'argument est supposé en radians. 


Ne peut s'employer que dans une instruction PRINT. 
PRINT SPC(I) imprime I espaces. I doit être entier 
compris entre ÿ et 255. 


Racine carrée. L'argument doit être supérieur ou 
égal à #. 

Ne peut s'employer que dans une instruction PRINT. 
PRINT TAB(I): fait aller à la position d'impres- 
sion n° I(# est la position la plus à gauche 
d'une ligne, 39 la plus à droite). I doit être 
compris entre ÿ et 255. Si I<position où l'on est 
déjà, il n'y a pas d'action, c'est-à-dire que la 
prochaine impression se fera là où on était posi- 
tionné. Remarque : cette fonction ne marche pas 
sur les versions actuelles de l'ORIC. 


Tangente - l'argument est supposé en radians. 
Valeur -1 ("Vrai" dans les expressions logiques). 


Appel d'un programme utilisateur en langage- 
machine. (avec transmission d'un argument, à la 
différence de SYS). 


FONCTIONS CHAINES 


Les fonctions portant sur les chaînes de caractères 
sont décrites dans le chapitre V. 


Nous 
LEN(X$) 


donnons ci-après leur liste pour mémoire. 


Longueur 


LEFTS(X$,N) Extraction à gauche 


RIGHTS ( 


X$,N) Extraction à droite 


MIDS(X$S,K) ou MID$(X$,K,N) extraction au milieu 


ASC(X$) 


Conversion de caractère en ASCII 
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CHR$(K) 
STR$(A) 
VAL(X$#) 


ABS 
AND 
ASC 
ATN 
CALL 
CHAR 
CHRS 
CIRCLE 
CLEAR 
CLOAD 
CLS 
CONT 
cos 
CURMOV 
CURSET 
CSAVE 
DATA 
DEEK 
DEF 
DIM 
DOKE 
DRAW 
ELSE 
END 
EXP 


VARIABLES RESERVEES 
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Conversion d'ASCII en caractère 


Représentation d'un nombre 
Valeur représentée par une chaîne. 


MOTS-CLES RESERVES EN BASIC 


EXPLODE 
FILL 
FN 
FOR 
FRE 
GET 
GOSUB 
GOTO 
GRAB 
HEX$ 
HIMEM 
HIRES 
IF 
INK 
INPUT 
INT 
LEFTS 
LEN 
LET 
LIST 
LLIST 
L'N 
LOG 
LORES 
MIDS 


FALSE 


MUSIC 
NEW 
NEXT 
NOT 

ON 

OR 
PAPER 
PATTERN 
PEEK 
PING 
PLAY 
PLOT 
POINT 
POKE 
POP 

POS 
PRINT 
PULL 
READ 
RELEASE 
REM 
REPEAT 
RESTORE 
RETURN 
RIGHTS 


PI TRUE 
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RND 
RUN 
SCRN 
SGN 
SHOOT 
SIN 
SOUND 
SPC 
SQR 
STEP 
STOP 
STRÉS 
TAB 
TAN 
TEXT 
THEN 
TO 
TROFF 
TRON 
UNTIL 
USR 
VAL 
WAIT 
ZAP 
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ANNEXE II 


Répertoire des Instructions et des Opérateurs Basic 


Comme le Guide Michelin, nous attribuons des étoiles 
aux instructions et aux commandes : *** instruction fon- 
damentale, ** instruction importante, * instruction 
intéressante. Pas d'* : instruction qu'il ne faut pas 
hésiter à utiliser si le besoin s'en fait sentir ; cer- 
taines de ces instructions ne sont pas traitées dans ce 
livre. 


D'autre part, P veut dire : plutôt instruction en mo- 
de programmé, É veut dire : interdit en mode programmé, 
C : plutôt commande en mode direct,  : interdit en 
mode direct, "rien" veut dire : tantôt l'un, tantôt 
l'autre. 


La définition est suivie d'exemples non commentés mon- 
trant les différentes formes que peut prendre l'instruc- 
tion. 


Catégorie Mot-clé Définition-exemple 


Fait démarrer l'exécution 
d'un programme en langage 
machine à l'adresse indiquée 
25 CALL 62512 


Dessine un caractère à l'em- 
placement du curseur haute 
résolution CHAR code, jeu, 
allumé 

199 CHAR 65,9,1 


Dessine un cercle centré à 
l'emplacement du curseur : 
CIRCLE rayon, allumé. 

195 CIRCLE 59,1 


Remise à zéro de toutes les 
variables. 












CIRCLE 










Vide l'écran 


Chargement d'un programme 
sur cassette 
CLOAD"" CLOAD"'NOM",S 


Continuer dans le programme 
après interruption. 
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Catégorie Mot-clé Définition- exemple Page | 


CURMOV 


CURSET 


CSAVE 


DATA 


DEF FN 


DEF USR 


DIM 


DOKE 


DRAW 


ELSE 


END 
EXPLODE 


Déplace le curseur haute 102 
résolution : CURMOV DX,DY, 
allumé. 

190 CURMOV 19,14,0 

Positionne le curseur haute 102 
résolution : CURSET X,Y 

allumé. 


199 CURSET ÿ,9,1 


Sauvegarde d'un programme sur | 45 
cassette. 

CSAVE"NOM" CSAVE"NOM",S 
CSAVE'"NOM" , AUTO 


Définit une liste de constan- | 72 
tes qui seront "lues" par une 
instruction READ. 

19 DATA ABC, DEF,5,3,25 


Définition d'une fonction uti-| 90 
lisateur. 19 DEF FNF(X)=A*X+B 


Définit l'adresse de la fonc- 
tion USR. 
DEF USRY=-4ÿ0 


Dimensionnement d'un tableau 75 
(fixe les valeurs maximum des 
indices). 19 DIM A(15),B(3), 
C#(2,5),D(7,6,2) - 29 DIM W(N) 


DOKE a,b écrit la donnée b 65 
&Gans le double octet d'adres- 

ses a (poids faibles) et a+l 
(poids forts) 

DOKE 63ÿ,65535 DOKE A,X-4 


Dessine un vecteur à partir 102 
de la position du curseur 

haute résolution, de compo- 
santes DX,DY : DRAW DX,DY, 

allumé. 


Introduit l'instruction à ef- | 52 
fectuer lorsque la condition 

d'un IF n'est pas setisfaite. 

IF X<fÿ THEN A=B ELSE A=X 


Termine un programme. 35 


Produit un bruit d'explosion. |133 
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P£* 


Pxx 


Pxx 


k*%x 


Pxx 


FILL 


FOR 


GET 


GOSUB 


GOTO 


GRAB 


HIMEM 


HIRES 
IF 


FILL NLE,NC,Z remplit NLE 130 
lignes élémentaires sur NC 

cases avec le code Z à partir 

du curseur haute résolution. 

FILL 2ÿÿ,4ÿ,68 


Introduit une boucle : toutes 58 
les instructions comprises en- 
tre FOR I=ATOBSTEP C et le 
NEXT correspondant seront ré- 
pétées pour toutes les valeurs 
de I allant de À à B, C par C: 
19 FOR I=1 TO 1949 

5g FOR I=ÿ TO 2ÿÿ STEP & 

69 FOR I=N TO 3*N+4 STEP 5 

79 FOR I=5ÿ TO 1 STEP -1 

8ÿ FOR X=1.5 TO 2*PI STEP .1 


Attend un caractère auclavier [106 
17 GET AS 


Appel d'un sous-programme 120 
19 GOSUB 1099 

Saut à une autre instruction 24 
19 GOTO 5ÿ 

Récupère pour Basic la zone 108 


mémoire d'écran haute résolu- 
tion. 


Abaisse le sommet de mémoire 
connu de Basic : permet de 
protéger une zone mémoire pour 
un sous-programme en langage 
machine. HIMEM #89909 


Passe en mode haute résolution| 92 


Saut conditionnel, de la for- | 50 
me : IF condition THEN ins- 
truction. Si la condition 
n'est pas satisfaite, on passe 
à la ligne suivante ; si la 
condition est satisfaite, on 
effectue l'instruction qui 
suit THEN. 

IF c THEN GOTO s'élide en 

IF c THEN x ou en IF € GOTO x 
19 IF A>B THEN Y=K 
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Catégorie | Mot-clé Définition- exemple 


INK 


INPUT 


LIST 


LLIST 
LORES 


LPRINT 
MUSIC 


NEW 
NEXT 


ON 


29 IF A=83 GOTO 1994 
39 IF AS<>"" THEN 59 


Autre forme : IF condition THEN 
il ELSE i2 si la condition est 
satisfaite on effectue il, si- 
non ji2. 

IF A=3 THEN Y=-12 ELSE Y=1ÿ 


Définit la couleur des tracés 
("encre") 
INK 5 INK I+INT(7*RND(1)) 


Acquisition de données au cla- 
vier 

19 INPUT A | 

29 INPUT A,B,C8,D 

39 INPUT"'ENTREZ UN NOMBRE";N 


Liste du programme 
LIST LIST 1ÿ LIST-1ÿÿ 
LIST 19 LIST 19-144 


Listing sur l'imprimante. 


Passage en mode basse résolu- 
tion. LORES ÿ LORES 1 


Ecriture sur l'imprimante. 


MUSIC NV,0C,NO,V prépare ou 
fait retentir une note sur la 
voix NV, l'octave OC, de hau- 
teur définie par NO et de vo- 
lume V. MUSIC 1,4,19,19 


Vide la mémoire-programme. 


Fait passer à l'itération sui- 
vante dans un FOR 
NEXT I NEXT J,I NEXT 


ON I GOTO 1ÿ,29,39 
Si I vaut 1, on va en 19, 
s'il vaut 2, on va en 29, 
en 39 s'il vaut 3. 


ON I GOSUB 1ÿ99,1500, 2900, 5000 
Si I vaut 1, on appelle le 
sous-programme en 1ÿ9ÿ9, 2 en 


1599, 3 en 2999, 5 en 5999 
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Catégorie Mot-clé Définition-exemple Page 





* PAPER Définit la couleur du fond 100 
de l'écran ("papier"). 
PAPER 7 PAPER NP(I) 

PATTERN | Définit le motif des poin- 102 


tillés pour les tracés en 
s | haute résolution. PATTERN M 


PING Fait retentir un "ding'" aigu |133 


* PLAY PLAY S,B,E,D exécute les 135 

. | sons préparés préalablement 
par SOUND ou MUSIC avec la 
combinaison S (de # à 7) de 
voix musicales, B (de # à 7) 
de voix bruitées, l'envelop- 
pe E (de 1 à 7) et caracté- 
risée par la durée D (de 1 à 
à 32767 en demi-millisecon- 
des). PLAY 7,9,7,100Y 


xx PLOT PLOT X,Y,A$ écrit la chaîne 94 
A$ à partir de la position 
X,Y sur l'écran 
PLOT X,Y,A écrit le caractère 
ou l'attribut de code A 
PLOT 19,19,12 PLOT 29,15, 
PLOT 2ÿ, 15, "BONJOUR" 
* POKE POKE a,b écrit la donnée b 65 
à l'adresse a. 
POKE 36879,27 POKE K+1,2-4 
Pour lire en mémoire, voir 


PEEK. 
POP Enlève une adresse de retour 
de la pile. 
à PRINT Imprime un résultat sur 15,27 
l'écran. 


PRINT A 1 PRINT A;B,J 
29 PRINT 2*A+3,B8# 
39 PRINT"LE RESULTAT EST";B; 


PULL Enlève une adresse de boucle 
de la pile. 


P* READ "Lecture" de données dans 72 
une instruction DATA asso- 
ciée. 


1f READ A 2f READ A,B$#,C 
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REM 








RETURN 


RUN 


SHOOT 
SOUND 


STEP 


STOP 


TEXT 
THEN 


TROFF 
TRON 


UNTIL 


RELEASE 


REPEAT 


RESTORE 








Définition-exemple 


Fait rendre par Basic l'espace 
mémoire de l'écran haute réso- 
lution. Nécessaire pour faire 
HIRES après un GRAB. 


Introduit un commentaire. 


REPEAT instructions 
UNTIL condition 

Fait répéter les instructions 
entre le REPEAT et UNTIL jus- 

qu'à ce que la condition soit 
réalisée. 

REPEAT:GET AS:UNTIL AS-CHRS#(13) 
Revient au début des DATA. 72 














Retour de sous-programme. 120 
199 RETURN 


Déclenche l'exécution d'un 
programme. ARUN RUN 59ÿ 


Produit un bruit de coup de feu|133 


SOUND NV,P,V fait retentir un 133 
son par le canal NV (de 1 à 3, 
ou, avec bruit, de 4 à 6), de 
fréquence 62#ÿ#ÿ/P, de volume V 
(9 à 15). 

SOUND 1,140,14 


Introduit le pas d'incrémenta- 60 
tion dans un FOR. 


16,34 


Arrête l'exécution d'un pro- 68 
gramme. 
1 STOP 
Passe en mode TEXT 92 
Introduit l'instruction à ef- 50 





fectuer quand un IF est satis- 
fait. 


Introduit la valeur limite d'un! 58 
FOR. 


Arrête la trace. 69 


Met en oeuvre la trace (liste 69 
des n° d'instructions par où 
l'on passe. 


Introduit la condition d'arrêt 63 
d'une boucle REPEAT. 
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| catégorie | Mot-clé Définition-exemple 


nd WAIT N fait attendre N cen- 
OPERATEURS 


tièmes de seconde. 
é : logiques 
Arithmétiques effectués bit à bit 


addition de nombres ou non logique, agit 
concaténation de chaînes | sur 1 seul opérande 
de caractères  |---{"""" 2 












Produit un bruit de tir d'un 
canon laser. 


Affectation de valeur à une 
variable. A=836 


Dénote une constante hexa- 
décimale ?DEEK ( COY). 












prendre l'opposé ou 
soustraction 


multiplication 


division 






égal différent 







inférieur > supérieur 





PhHy=S 


inf.ou- >= sup. ou 





inf.ou- => sup. ou = 
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ANNEXE III 


MESSAGES D'ERREUR 


Le fait de disposer d'un interpréteur qui prend les 
instructions Basic une par une pour les exécuter permet, 
lorsque se produit une erreur, d'identifier, avec pré- 
cision, l'instruction où s'est produit l'incident. 


Par suite, les messages d'erreur seront de la forme : 


? message ERROR in numéro 

précisant le numéro de la ligne où l'erreur a été ren- 
contrée. Le seul cas où le numéro n'est pas précisé est 
celui d'une commande directe. 

Les problèmes les plus courants proviennent d'un mot- 
clé mal orthographié, d'une virgule manquante ou d'une 
variable d'un certain type employée à tort, etc... 

Il faut noter qu'une erreur signalée à un numéro de 
ligne peut n'être que la conséquence d'une autre erreur : 
par exemple une DIVISION BY ZERO ERROR vient plutôt des 
instructions précédentes où le diviseur est calculé. 


Nous donnons, ci-dessous, la traduction, et pour les 
plus importants, des explications, des différents mes- 
sages d'erreur qui peuvent être délivrés par l'ORIC 
lors de l'exécution d'un programme Basic. 


BAD SUBSCRIPT (mauvais indice) 

Tentative d'appeler un élément de tableau d'indice supé- 
rieur à la limite fournie dans le DIM, ou encore avec 

un nombre d'indices différent de celui spécifié dans le 
DIM. 

Exemple : DIM A(15) avec A(2ÿ) ou A(2,2). 


BAD UNTIL (mauvais UNTIL) 
UNTIL rencontré alors qu'il n'y a pas eu de REPEAT. 


CAN'T CONTINUE (on ne peut pas continuer) 
Impossibilité de reprendre l'exécution d'un programme 
par CONT. C'est le cas s'il y a eu une erreur, ou si, 
pendant l'interruption, on a modifié ou ajouté une 
instruction. On peut reprendre par GOTO numéro dans 
certains cas. 


DISP TYPE MISMATCH (Désaccord avec le mode d'affichage) 
Emploi d'une instruction caractéristique d'un mode d'af- 
fichage alors qu'on est dans un autre. 

Exemple : DRAW alors qu'on est en mode TEXT. 
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DIVISION BY ZERO (Division par zéro) 
Vient le plus souvent d'une variable non initialisée. 


FORMULA TOO COMPLEX (Expression chaîne de caractères 
trop complexe ou trop de IF...THEN sur une ligne). 


ILLEGAL DIRECT (illégal en mode direct) 
INPUT, GET et DEF FN sont interdites en mode direct. 


ILLEGAL QUANTITY (valeur erronée) 
Emploi d'une fonction avec un argument hors de l'inter- 
valle permis. Exemples 
- indice négatif ou >32767 
- argument de LOG négatif ou nul 
- argument de SQOR négatif 
- ÿ puissance nombre négatif 
- longueur spécifiée dans MID$, RIGHTS, LEFT$ non 
comprise entre ÿ et 255 
- index de ON GOTO hors des limites 
- adresses dans PEEK, POKE, DEEK ou DOKE non comprises 
entre ÿ et 65535 
- octet spécifié dans POKE, TAB, ou SPC non compris 
entre ÿ et 255. 


NEXT WITHOUT FOR (NEXT sans FOR correspondant) 

Vient le plus souvent de boucles mal imbriquées, d'une 
confusion sur la variable marquée dans le NEXT ou encore 
si l'on a supprimé un FOR pour une correction, en ou- 
bliant de supprimer le NEXT. 


OUT OF DATA (DATA épuisées) 

On essaie de faire un READ alors que l'on a déjà "lu" 
toutes les données de toutes les DATA. Il faut, soit 
comptabiliser les données avec soin, soit utiliser 
RESTORE. 


OUT OF MEMORY (mémoire épuisée) 
Programme trop long, ou trop de variables, ou trop de 
boucles et GOSUB imbriqués. 


OVERFLOW (Dépassement de capacité) 

Résultat d'un calcul supérieur à 1.7E38. Dans l'autre 
sens, un résultat inférieur à 2.9E-39 est indiscernable 
de ÿ, mais il n'y a pas de message d'erreur. 


152 


LA DECOUVERTE DE L'ORIC 


REDIM'D ARRAY (Tableau redimensionné) 

On est repassé une deuxième fois sur l'instruction DIM 
portant sur un tableau, ou il y a une deuxième instruc- 
tion DIM pour un tableau. 


REDO FROM START (Recommencez depuis le début) 

Lors d'une instruction INPUT, on a fourni une quantité 
alphanumérique, alors que l'on s'attendait à du numéri- 
que. Il faut reprendre en redonnant toutes les valeurs 
attendues par l'instruction INPUT considérée. 


RETURN WITHOUT GOSUB (Retour sans GOSUB) 

On est tombé sur un RETURN alors que l'on ne venait pas 
d'exécuter un GOSUB. Dû le plus souvent à l'oubli de 
END en fin de programme principal qui précède un sous- 
programme. 


STRING TOO LONG (Chaîne de caractères trop longue) 
Tentative de créer (par concaténation) une chaîne de 
plus de 255 caractères. 


SYNTAX (Erreur de syntaxe) 

Instruction incompréhensible pour Basic. Dû notamment à 

des parenthèses non appariées, caractères illégaux, mau- 
vaise ponctuation, faute d'orthographe dans un mot-clé. 


TYPE MISMATCH (Désaccord entre numérique et alphanumé- 
rique) 

Valeur numérique affectée à une variable chaîne, ou vice- 
versa, ou bien argument numérique fourni à une fonction 
qui demande un argument alphanumérique, ou vice-versa. 


UNDEF'D STATEMENT (Instruction non définie) 

GOTO, GOSUB ou THEN renvoyant à un numéro de ligne in- 
existant. C'est le plus souvent dû à l'oubli de correc- 
tion d'un GOTO... quand la ligne cible a été supprimée 
ou changée de place. 


UNDEF'D FUNCTION (Fonction non définie) 
Référence à une fonction pour laquelle on a oublié le 
DEF FN. 


L'erreur FILE ERROR LOAD ABORTED à été traitée au cha- 
pitre III dans la section sur les cassettes. 
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ANNEXE IV 


QUESTIONS ET REPONSES 


Lorsque je veux relancer un programme après interrup- 
tion (en 1##), je peux utiliser CONT,RUN 1#ÿ ou GOTO 
199 (en mode direct). Quelle est la différence ? 





CONT ne peut pas être utilisé si, au cours de l'interruption, vous 
avez apporté une correction au programme. Si vous utilisez RUN 199, 
toutes vos variables seront remises à zéro. Donc, st lors de 
l'interruption, vous avez corrigé une variable, il faut utiliser 
GOTO 194. 


Lorsque la variable à lire par INPUT est une chaîne de 
caractères, doit-on la mettre entre guillemets ? 


En principe non. On la met entre guillemets si la chaîne contient 
des virgules, deux-points, ou des espaces au début ou à la fin. 


Que se passe-t-il lorsqu'en INPUT d'un nombre on four- 
nit une chaîne de caractères, ou vice-versa ? 


Si à INPUT A8 vous répondez 123, 1'ORIC prendra la chaîne de carac- 
tères chiffre 1, chiffre 2, chiffre 3 ; pas de problème. 


Si à INPUT À vous répondez ABC, il y aura une erreur avec le mes- 
sage REDO FROM START et l'instruction INPUT sera réexécutée ; donc, 
pour un INPUT à plusieurs variables, vous devez refournir toutes 
les données. 


Y-a-t'il une limite à la longueur des chaînes de 
caractères ? 


Oui : 255 caractères, ce qui est déjà beaucoup. Notez qu'une telle 
chaîne ne peut pas être donnée d'un seul coup, puisqu'une instruc- 
tion ne peut dépasser 8ÿ caractères ; elle doit être construite 
par concaténation. 


| Comment prévoir la taille d'un programme ? 


En gros, un programme occupe autant d'octets qu'il renferme de 
caractères, puisqu'il est stocké tel quel, comme chaîne de carac- 
tères, sauf les mots-clés qui sont remplacés par un code en 1 octet. 


En ce qui concerne les variables, chaque variable numérique occupe 
7 octets, chaque chaîne occupe (7 + longueur) octets. Un tableau 
occupe x (n+1)+2d, où d est le nombre de dimensions, n est la 
taille du tableau (y compris l'élément n° ÿ) et x = 5 (nombres) 

ou 3 (chaînes de caractères). 
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On gagne de la place mémoire en supprimant tous les blancs inuti- 
les, en mettant plusieurs instructions par ligne, en évitant Les 
REM, en utilisant des variables plutôt que des constantes. 
Utilisez des GOSUB dès qu'il faut faire appel plusieurs fois à 
une séquence d'instructions identiques. 


J'ai des problèmes lorsque j'ai plusieurs instructions 
sur la même ligne, avec un IF parmi elles. 


La forme : 19 inst.1 : int.2 : IF © THEN inst. 

29 inst.4 
ne doit vous causer aucun problème. Elle obéit à l'ordinogramme 
a) ci-dessous : 


La forme 

os inst.1l 

19 IF c THEN inst.8 : inst.3 
29 inst.4 

obéit, sur L'ORIC, à l'ordino- 
gramme b) ci-contre. C'est-à- 
dire que lorsque la condition 
n'est pas satisfaite, on passe 
à la ligne suivante et non à 
l'instruction qui suit l'ins- 
truction introduite par THEN. 





Que se passe-t-il si je mets une instruction FOR sans 
NEXT ? 


Les instructions qui suivent le FOR sont exécutées une fois (puis- 
que rien ne dit à L'ORIC qu'il faut recommencer). La vartable, 
citée dans le FOR, prend pour valeur la valeur de départ (placée 
avant TO). 


[Comment imprimer des nombres alignés sur leur droite ? 


Il faut employer les fonctions chaînes de caractères. Par exemple, 
on dispose d'une zone de 10 caractères dans laquelle on veut im- 
primer un nombre N. Quel que soit le nombre de chiffres, on veut 
que le nombre soit imprimé à droite de la zone. On emploie la 
séquence suivante : 

199 NS=-STR$(N) :L=LEN(NS#) 

119 IF L=1ÿ GOTO 13ÿ 

129 FOR I=1 TO 19-L:N$=" "4NS :NEXT 

139 PRINT N$ 


On peut remplacer 12ÿ par 12f PRINT SPC(1ÿ-L) ; 
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Je viens de faire un programme que je voudrais sauve- 
garder sur cassette, mais j'ai oublié de positionner 
la cassette. 


Il ne faudrait surtout pas faire le SAVE avec la cassette rebobi- 
née : vous effaceritez une partie des programmes déjà enregistrés. 
Si votre magnéto a un compteur et st vous avez noté les numéros, 
vous pouvez vous positionner derrière le dernier programme qui 
avait été enregistré sur la cassette. Sinon, prenez une autre 
cassette. 


IComment savoir ce qu'il y a sur une cassette ? 


Il faut tenir un répertoire des cassettes à mesure qu'on les rem- 
plit. Sinon, lire chaque programme par CLOAD"" (sans préciser le 
nom) . 


J'ai vu, sur certains listings, des noms de variables 
se terminant par %. Qu'est-ce que c'est ? 


Il s'agit d'un type de variable que nous n'avons pas étudié : les 
variables entières. Leurs noms sont de la forme A% A1% ALBERTY. 

On peut, dans un programme, avoir les trois variables distinctes 
A% À et AS. Les variables % peuvent être dimensionnées. 

Ces vartables ne peuvent prendre que des valeurs entières comprises 
entre -32767 et +32767. Elles sont intéressantes pour économiser 
de la mémoire, étant donné qu'elles n'occupent que deux octets. 


Est-ce que, à part des programmes, on peut écrire des 
données sur cassette ? 


Out, mais le Basic de l'ORIC n'offre aucune facilité pour cela. 
Il faut recourir à des techniques délicates qui seront décrites 
dans le prochain livre de cette série, sur les périphériques et 
fichiers. Il y aura aussi des articles sur cette question dans 
"La Commode". 


Le programme suivant est le squelette d'une gestion de fichiers 
sur cassette. Lorsqu'on fait RUN (le magnéto étant en écriture), 
on acquiert au clavier des chaînes de caractères qu'on transfère 
sur cassette. On termine en fournissant 888 comme chaîne. 
Lorsqu'on fait RUN 4ÿ, les données sont relues et imprimées sur 
l'écran. 


14 IMHFUT AÀS$ 
A GOSUS 1446: GOSUE 1H 


SE IF A$<2"$$$" C0QTO 14 


35 EHC 
48 GOSUR 1834: G0SUB 1864 
Se A$="":H=1Z4 


EG BeFEERG AS: IF Be GOT 84 
FA AS=<AD+CHRSC E 3: H=ñ+1:GOTO 64 
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SA PRINT AS:IF A$:>"#8#" COTO 4@ 


24 END 

18948 LLELENASO+L: FOR Izi TO LL-1 

1918 POKE 1423+7T.ASCéMIDSC AS, I: 199: NEXT:POKE 1U83+LL.8 
1824 DOKE H#SF.#49P:POKE #61, LL:POKE #62,4 

1454 DOKE #63: #100:POKE #67. 

1849 COKE #35.62:RETURH 

1460 CALL HESCA:CALL #ESFB:CALL #E8@4 : RETURN 

1868 CALL #E6CA:CALL #E4AS: CALL #ES@d : RETURH 


Pour l'utilisation de ce programme, il est préférable de disposer 
de la télécommande du magnéto. 


J'ai une imprimante. Comment l'utiliser ? 


1°) Pour obtenir un listing sur l'imprimante, faire LLIST. 


2°) Pour écrire sur l'imprimante, faire LPRINT en lieu et place 
de PRINT. 


Selon l'imprimante, des LPRINT CHR$(x) peuvent avec certaines va- 
leurs de x envoyer des caractères de contrôle déclenchant un com- 
portement spécial de l'imprimante, comme saut de page, impression 
en caractères larges etc... Reportez-vous à la notice de 
l'imprimante. 
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ANNEXE V 
SOLUTIONS DES EXERCICES 


Les exercices non rappelés ici ont, en principe, leur 
solution dans le texte. 


Exercice 2.1 


19 INPUT"'RAYON'" ,HAUTEUR';R,H 

29 V=PI*Rt2*H 

39 PRINT'VOLUME=",V 

4ÿ GOTO1ÿ 

199 REM 29 ET 39 POURRAIENT ETRE REMPLACES 
119 REM PAR 25 PRINT'VOLUME=" ,PI*Rt2*H 


Exercice 2.2 


INPFUT'CRFITAL, TAUX EN #2: HOÜMERE D ANNEES": C: TN 
I-U#E TI +T AOC) 1-12 
FRiNT"INHTErET="i I 


GiToie 


+ ils be 
Ferre 
un 


A 


Exercice 3.2 
Appuyez sur 'Del' deux fois, puis JOUR. 


Exercice 3.3 
Taper : BONJOUR ‘Esc'L 'Esc'G 'Esc'P MADAME 'Esc'W 
"Esc'D 'Esc'H BONJOUR !'Esc'L "Esc'C 'Esc'T MONSIEUR 


Exercice 3.5 


Pour que l'instruction 39 passe de 39 PRINT'SURFACE =", 
S à 39 PRINT'VOLUME =",V; amener le curseur sur le S 
de surface par ‘'Ctrl' A et taper VOLUME=",V 'Return'. 
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Exercice 4.1 


15 IF S<=ÿ GOTO 19 

Variante : 15 IF S<=ÿ GOTO 5ÿ 
59 PRINT'"'IL FAUT UNE SURFACE POSITIVE" 
69 GOTO 19 


Exercice 4.2 










Imprimer "Rayon du cercle!" 
Lire R au clavier 
Calculer S -TRf2 


Imprimer "Surface =" et S 








Imprimer "Surface du cercle" 
Lire S au clavier 








Imprimer "il 
faut une surface 
positive!" 





Oui 
Calculer R VS 
T 

Imprimer "Rayon", R 
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Exercice 4.3 


[| calcul, INPUT (pour lequel on emploie parfois 


) ou PRINT (pour lequel on emploie parfois 
= à 
— GOTO ou IF 
G©) END ou dernière instruction 


Première instruction, ou numéro cité 
dans la commande RUN ou GOTO en mode 
direct. 


Exercice 4.4 
PRINT INT(X*1ÿWÿtD)/1#tD 


Exercice 4.5 


Deux solutions 

1. faire l'impression en 65 et mettre 69 N=N+1 

2. initialiser N à 1, ce qui doit se faire explicitement 
en ajoutant 19 N=1. 


Exercice 4.7 
11 manque l'impression d'une première ligne de titre ! 
5 PRINT'NB'" ,'"CARRE" , "RACINE" 
6 PRINT 
(Le 6 fait sauter une ligne). 
Exercice 4.8 
Seule instruction changée 
19 FOR N=2 TO 19 STEP 2 
Exercice 4.9 
19 : 1 3 5 7 valeur finale 9 
59 : 19 9 8 7 6 5 4 valeur finale 3 
Exercice 4.11 


2 minutes : on accorde 72ÿÿ soixantièmes de seconde. 
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Exercice 4.12 


Initialiser Temps 


Initialiser N à 1 








Temps dépassé 


Acquérir le nombre 


Erreur< tolérance 


Augmenter N de 1 


Limite dépassée 





Imprimer 
"perdu!" 


Exercice 4.13 


Problème déjà résolu dans l'instruction 4ÿ 


69 PRINT'GAGNE EN'":N:"COUPS ET":;INT((65535-DEEK(639)).6) 
/199 "SECONDES" 
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Exercice 4.14 


15 IF 65535-DEEK(63#)>72@ÿ@ GOTO 55 
59 PRINT'NB. D'ESSAIS PERMIS DEPASSE" 
53 END 

55 PRINT'TEMPS DEPASSE" 

57 END 


Exercice 5.1 
2S IF CS:3333 
Sr RESTORE : GOTÜ 
1ü€a GÜTO 14 
£18 DATA 210,75.51,901.5:31,4.18,2.7,93339 


Exercice 5.2 


À la suite du calcul de la moyenne, on aurait 


o—2 A 
à Y=E 
104 FÜR I1=1 TO H 
11 VAS ACID-H) T2: 
ia HET 1 


SR ETARUTESS 


On peut proposer une solution plus élégante, qui calcule 
moyenne et variance dans la même boucle, et qui repose 
sur la remarque mathématique suivante 

Z 


(A;-M}È=; 


(A.2-2MA. + M) 
1 L L 


A.2-2M> + NxM? 
i i 


M M 


A.? -N*M? 
L 
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D'où le programme 
o—2 B 


1ü DIM AH) 

2G REM LECTURE DES A 

3 S<û:52=0 

4& FOR 1=1 TO H 

Sà S=S+AC1:52=52+AC 1212 


ë4 MEXT I 


FE MESSCH:NECSE-HEMTE DS CN 10 
SE PRINT'MOTEHNHE "M, "VARIANCE Mi 


Exercice 5.3 


1& DIN ULH), CN) 
ZA RENM LECTURE 

34 Uy=ÿ 

4 FÜR I=<1 TO H 
Sa UY2UY+HUÉT DH C I 5 
ä HEËT I 


nn 


Exercice 5.5 


14 RENM Où HE S'OCCUFE FnS DU TOUT 
15 REÏM LES ENTREES SORTIES 

2 DIM ACH:MI, BH: Hr, CEH: NS 

SG FÜR I=1i T0 H 

+0 FÜR J=i T0 H 

Da CiI.Ji=E 

sa FÜR K=1 TO H 

TE CSI TIECC I, Th+AC I. KIHECK, JE 

Sa HEXT K'MEËXT J'HEËT I 


Exercice 5.6 
19 X$S=-LEFTS(X$S,4)+"A'"+MIDS(XS,6) 
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Exercice 5.7 


140 H=LENCAS) :F=LENCES 
11€ FÜR K=1 TO H-F-1 
104 IF MIDECRF.K:F2=EB#$ GOÜTO 156 


156 HEXT K 
144 KH=û 

15€ FRIHT K 
16& END 


Lorsque vous aurez vu les sous-programmes, vous compren- 
drez qu'il est très judicieux de remplacer 16ÿ par 
169 RETURN. 


Exercice 5.8 
NC = LEN(STRS(A))-1 dans les deux cas : STR$ est corri- 
gée pour cela dans l'ORIC. 


Exercice 5.9 


199 B$=STR$S(B):N=LEN(B$) 
119 PRINT LEFTS(BS$,N-3) 


Exercice 5.10 


On suppose au départ 
que le maximum est au 
rang 1. 


Ensuite, on parcourt 

le tableau SM à partir 
du rang 2. Si on trouve 
un élément supérieur au 
maximum supposé, c'est 
cet élément que l'on 
prend comme nouveau 
maximum supposé 
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On peut alors ajouter au programme B-10 la séquence 
suivante : 


216 FRINT:FRINT'IIN SMCHIT) 
EG FÜR Ji T0 HI:ESNCJi=E 
ES FOR P=l TO NF: SMETS=S 


METIHICLT PE 
Z4@ MENT P:SMCJDeCMCJD ONF IHENT J 
250 JH=1: Mes 


Zéa FÜR J=Z TO HJ 

Era IF SiicJoish THEN £30 

SO JM=J Me T5 

236 HEXT J 

SGQ FRINT'LE GAGHANT EST "HOME < IH 
316 FRINT'AVEC UN SCORE MOTEN DE";:M 











Exercice 5.11 


Les problèmes de classement ou de tri sont parmi les 
plus souvent rencontrés. On distingue les problèmes de 
tri simple où, partant d'un tableau d'éléments, on 
cherche à obtenir, àala fin du programme, le même tableau, 
mais ordonné, les éléments étant maintenant croissants 
ou décroissants : et les problèmes de classement où on 
laisse en place les éléments du tableau de départ, mais 
on forme un tableau auxiliaire, dit tableau de pointeurs 
PO(I), tel que PO(I) soit l'indice dans le tableau de 
départ de l'élément qui mérite d'être classé I ième. Le 
nom du joueur classé I ième est ainsi NOM$ (PO(I)). 


Dès que les éléments sont encombrants, il est plus inté- 
ressant d'effectuer un classement, plutôt qu'un tri sim- 
ple : les termes à déplacer sont plus petits. 


Une méthode de classement simple découle de l'exercice 
précédent. Supposons qu'on veuille un classement par 
ordre de score moyen décroissant. PO(1) n'est rien d'au- 
tre que le JM obtenu précédemment. PO(2) n'est autre 

que le rang du maximum suivant et ainsi de suite. Mais 
il y a un problème. 


Lorsqu'on cherche le maximum d'un certain rang, il ne 
faut pas reprendre un maximum obtenu précédemment. 
Donc, lorsqu'on trouve un maximum, il faut remplacer 
l'élément par une valeur inférieure à toute valeur pos- 
sible (ici -1) pour que l'élément ne soit plus repris. 
Dans ce cas, le tableau SM sera détruit par le classe- 
ment. Pour l'éviter, on recopie d'abord le tableau SN 
sur lequel on travaillera. 
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25a 
zé6à 
zra 
25a 
z30 


1 
Je © 
© © 


Où 


Qi 
Q 


D 0 di 01 Di D Où 
4 
© 


Dù =J Ou on 4: 


ao 


Recopie du tableau 
SM dans SN 


LA DECOUVERTE DE L'ORIC 


D'où l'ordinogramme 
ci-contre qui n'est 
que la répétition 
de celui de 5.10 
pour chaque valeur 
de K. 


K représente le 
rang, à un instant 
donné, dans le 
classement. 





POCK)=JM 
SN(JM)=-1 


LI SNÇNJD, FPOCHI2 

FOR J=1 TO HJ:3:4CJ2=CM<J2:HEXT 

FÜR K=1 TO WJ 

JM=1 :M=SHCJM) 

FOR J=2 TO NJ 

IF SNÇCJD<=M THEN 520 

JM=J :M-SNCID 

HEXT J 

FOCKD=JN:SNCIMD=-1 

NEXT K 

FRINT'CLASSENENT"':FRINT 

FRINT'RAHG", "JIQOUEUR", "SCORE MOTTE" :FRINT 
FÜR I=1 TO NJ 

FRINT I:HOMECPACIDD, SMÉPÜCIDD HET I 
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Il existe d'autres méthodes de tri. Une des plus connues 
s'appelle méthode du "tri à bulles". On parcourt le ta- 
bleau à classer en comparant à chaque fois deux éléments 
consécutifs. S'ils sont dans le bon sens, on les laisse : 
s'ils sont dans le mauvais ordre, on les échange. 


Si, lors d'un parcours, il y a eu au moins un échange, 
on fait un nouveau parcours. S'il n'y a eu aucun échange, 
c'est que, maintenant, le tableau est ordonné. 


Les méthodes de classement s'appliquent au classement 
alphabétique des chaînes de caractères, puisque IF Af<B$ 
est vrai si A$ précède B$. La séquence suivante classe 
par ordre alphabétique le tableau des noms NOM$ 


354 RENM 

+4 ECH=G:RENM  INDICATEUR D'ECARNGE 

4j FOR I=<1 TG HJ-1 

428 1F MOMES II I=MOMECI+12 Tneid 45 

424 TE=HOMECI+-1) REM SAUVEGARDE FOUR ECHANGE 
44 NOMEE I +13 = MONET D HOMÉCIIETÉ ECH=i 

ASE MEAT I 

459 1r ECn=si DOTO 4 

4F9 PALHT: PRINT CLASSEMENT ACPHRBETIRUE" 

489 FOR Izi TO MSC PRINT SOMESISNEXT I 


Exercice 6.2 


Deux problèmes se posent : le premier est celui de 
l'échelle : les effectifs sont tous assez voisins (de 
89 à 129), donc il faut dilater les différences, mais 
tout de même garder un certain terme constant. 

Comme le numéro de la classe et l'effectif sont ins- 


crits en tête de ligne, l'écriture commence en colonne 
11. 11 faut utiliser des manipulations de chaînes de 
caractères pour assurer une largeur constante aux im- 
pressions du numéro de classe et de l'effectif. 


Nous proposons la formule de réduction d'échelle : N= 
(C(I)-79) qui fait varier N de ÿ à 25. 


1 
2 


D'où la fin du programme 


Exercice 6.2 

34 PRINT "CL EFF" 
14 FOR Teil TO 1H: Me INTER CET De 
118 FRINT RIGHTS" RESTE I 1. 






PE EUR nu TO M: BÉTHT OEM MERT KE 
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Exercice 6.3 


LA OIHEUT CENTRES, 0 ATOM RC, CE 
CLS 

FOR Tef TO SXPFI STEP EXFI-EH8 

pe LITE HCARÆCOISET 14, 5 1 

Me LITE CHR 

FLOT sv UE" 

HET 










Es 


Exercice 6.4 
PLOT 14,13,CHR$(12)+CHR$(4)+CHR$(21)+"BONJOUR'"+CHRS( 23) 
clignotement 
caractères bleus retour au fond blanc 
fond pourpre 


Chaque attribut occupant une position, il faut commen- 
cer en colonne 14 pour que "bonjour" soit au milieu. Le 
CHR$(23) final fait revenir au fond blanc sinon le fond 
serait resté pourpre jusqu'à la fin de la ligne. 


Exercice 6.5 


PLOT 1,19,'"BONJOUR'"+CHR$(12)+CHR$(7)+CHR$#(16)+"MADAME"+ 
CHR$#(23)+ CHRS(4) 

PLOT 19,19 ,CHRS$(8)+"BONJOUR"+CHRS(12)+CHRS(3)+CHR£(2ÿ) 

+'"MONSIEUR" 

(On ne peut pas mettre tout en une seule ligne Basic). 


Exercice 6.6 
PLOT 17,13,29:PLOT 18,13,23:PLOT 19,13,17:PLOT 29,13,23 


Exercice 6.7 


19 CLS:PRINT CHRS(17) 

29 FOR 1-4899ÿ TO 4912ÿ STEP 4@:POKE I,1@:NEXT 
39 FOR 1=-48#14 TO 4912ÿ STEP 4#:POKE I,23:NEXT 
49 FOR 1-48ÿ28 TO 4912ÿ# STEP 4@:POKE I,17:NEXT 
59 GOTO 59 


Au lieu de 5ÿ, on pourrait faire retentir la Marseil- 
, ce que nous saurons bientôt faire. 


Le PRINT CHR$(17) en 19 n'est qu'un 'Ctrl' Q pour empê- 
cher d'avoir le curseur. 
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Exercice 6.8 
Il suffit d'ajouter les instructions 


a AE "ESINUSOIDE" 

LEE te LB: es LA  CURGET ie 
118 FÜR Teil TO LEMNCA# 0 

Let AeABCE MI CSE AS, TI, 120 

LEA CHAR 6 1 

14 dE 


L'SË 














Exercice 6.9 


PROGRAMME  C-S 
TELECRAH 


1@ HIRES:PRINT" TELECRAN"CHRSE 17 
20 KeQ:Y=0:CURSET #1 | 

3A A=PEEKS 9288 2): BsPEEKS SEL SIT AeSé GOTO 34 
4 IF A=188 THEN ITkel :lvsi :GOTO 118 

SQ IF A=196 THEN IX=@ :Tve-]:GOTO 114 

SEA IF A=172 THEM Iée-l:1lYeÿ :GOTO 116 

FA IF Ae190 THEM Ixeg : lei :GOTO 116 

80 IF A=132 THEN 14 


90 IF A=175 THEN CURSET #48 :GOTO A 
194 GOTO 34 
114 List Lt] 14119, 5%: lee Ti ESS, SCIE Cell OR 





124 IF B=1i62 GOTO 148 

134 CURSET #, 7.08 

148 Het ee T NE CUIRGET 44, 1e GOTO 
1088 FRIHTPEEKS 828 9 : COTON GA 


L'impression de CHR$(17) en 1ÿ supprime le curseur. 
Lorsque vous arrêtez de jouer par 'Ctrl' G, faites 
iCtrl' Q pour le rétablir. La ligne 11# assure qu'on ne 
sorte pas des limites de l'écran. 


Par suite de l'effet de répétition des touches si vous 
voulez tracer un pointillé, vous ne pouvez pas mainte- 
nir l'appui sur la touche curseur et appuyer le doigt 
sur 'Ctrl' de façon intermittente : il faut aussi lever 
le doigt de la touche curseur. 


Nous vous suggérons d'ajouter des touches pour faire 
les mouvements diagonaux. 


Exercice 6.10 


99 PRINT''ON RECOMMENCE(O/N) ?" 
91 GET A$ 

92 IF Af="O" GOTO 19 

93 IF A$='"N" THEN END 

94 GOTO 91 
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Exercice 6.11 


Trois solutions : 


1- 199 GET A$ 

... suite ... 
2- 199 AS=-KEYS:IF A$=""GOTO 199 
3- 199 IF PEEK(529)=56 GOTO 199 


Exercice 7.1 
Les seules instructions modifiées sont : 


19 PRINT" ":CHRS#(27):"I x 
29 PRINT" ":CHRS#(27);"I x x" 
39 G=-471Yÿ4:R=ASC("*x") 


Le couple CHR$(27)(Escape)I fournit l'attribut 9. Les 
deux espaces en tête garantissent qu'il ne vienne pas 
effacer les attributs standard en tête de ligne. 


Exercice 7.2 


11 suffit d'ajouter 


145 GOTO 145 
On sort du programme par 'Ctrl'C et on rétablit le cur- 
seur par 'Ctrl' Q. 


Exercice 7.3 


Il suffit d'ajouter un caractère plein en remplacement 
de K et [ ] en remplacement de L d'où le programme 


5 CLS:PRINT PRINT: PRINT :PRINT: PRINT: FRINT:PRINT CHR 175 
18 PRINT" COODKDC" 

26 PRINT" A € E 
34 PRINT" R 
4Q PRINT" H 
Sa PRINT" F 
68 PRINT" F 
7@ PRINT" F 
8a PRINT" J 
99 G=47184 

190 FOR R=635 TO 76 
110 FOR Leg TO 7 

120 RERD X:POKE G+S%#R+L, x 

190 NEXT L:MEXT R 

140 FOR I=Q TO 26:PLAT 31,2: HEËXT 
145 GOTO145 

150 DATA 1,2,4,4,8,:16,16,32,3€, 











168 DATA 63.:0.@.0.:9,8.4.4.8,@. É 

179 DRATR 32,32.92.32 sl:1:141:1 

18 DATA 63,32,32,3£,52 +1:1:1:1:1 

190 DATA 32,32.:32,32,932 stsio1lit és 
200 DATA 63,69.63.63,6S -9.8,6. 8m, @ 
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+. 


La photo ci-contre 


donne l'aspect de 
l'écran obtenu. 


Exercice 7.4 


On utilise les remplacements des caractères de 'r' à 

‘z!' mais dans le générateur standard, sinon l'écran se- 

rait troublé. Il n'y a donc pas d'attribut 9 à mettre. 
REM 


2010 DATA abbé", M PT UN NA AR PTT 
end er 14 "2 14 Ch" "1 
ä DATA ‘#! 1 MH : 





À : FOR = 114 TO LEE 

A FEAT AB:FOR Leg TO À 

DA MeASCS MIDSE AS, LÀ ne 

à POKE G+SÆR LA: HEAT: HET 
CLS: PRINT: PRIHT:PRIHT:FETHT 
FRIHT" r" 

FRIHT" Et" 

FRIAT" us" 

FRIMT" Lg! 

FRIHT" ag" 





Exercice 7.5 


14 GOSUBSER CLS 
DA He: : 

gû FLOT #, 
38 MAIT DIF Xe 
S@ PLOT K,%:3 
&@ AIT D: 
Fa Deb+s 
Sa IF De 
Sû GOTO 
GA GedERBQ : ReASC ET D 

à FOR L=@ TO 7:RERD x 

POKE GHB#R+L: #: MENT 

RETURH 

& DATA Q.30.63.63.63.63. 20.0 











GUTO SE. 
se]: PLOT HT UE" 
-1 GOTO A 
THEM 
THEH =] 
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Exercice 7.6 


14 GOSURSAQ : CLS 
2A #=28: sl: PLOT 4,7, "4": Dsé 


3 PLOT K,%,32: fera]: PLOT x Un" 
4@ WAIT D':IF v<gé GOTO 3@ 
sQ PLOT 3%, 32: ver: PLOT ir UE" 


6 LAIT D: IF “21 GOTO SA 
Fa GOT 34 

san Ged+é@af : ReASLE EN 
19 FOR Leñ TO FRE 
SA POKE G+HBÆRL NET 
34 RETURH 













San DATA A, 304 68 68. 6% 6. 34, 
Exercice 7.7 
19 GOSLESAR : CLS 
PA : Hæl: fai: FLOT RS Dei 
3a PLOT iv De: Vel kml: PLOT 6, 4 En 
4 LAIT DIF Es GOTO 34 
BB PLOT CE ete mé ls PLOIT a UE 
A AIT C:IF 531 GOTO 54 


FA G Si 
SGA Gedéfsf : ReAGSCE UN 

Sa FOR Le TO F: jee # 

SpA POKE GHRÆR LL. NET 

Sa RETURH 

540 DATA 4,564, 68, 65, 62, 63, 30,6 





Exercice 7.8 


Si k»>32, on a déjà £1=k et 22=-k+64. 
k'=63-k est un attribut. Le dessin complémentaire s'ob- 
tient par £'-63-k+64=-127-k d'où £L23=L'+128-255-k. 


Exercice 7.9 


C'est le piège ! Faites donc PAPER 3 et non 
CURSET ÿ,9,9:FILL 299,1,19 


Exercice 7.10 


PAPER 4:CURSET 89,9,9:FILL 299,1,23:CURSET 169,9,9:FILL 
29,1,17 
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Exercice 7.11 


19 HIRES:REM vide l'écran 
29 CURSET 9,9,9:FILL 199,49,42 
39 CURSET #,199,9:FILL 199,49,54 


Pour des motifs, il faut spécifier toutes les colonnes 
à remplir. 


Exercice 7.12 


11 faut cette fois inscrire des motifs pleins (code 63). 
Puis, en 7ÿ on met les attributs de clignotement. 


19 HIRES: PAPER @:IHE 4 
28 FOR V=1 TO 19 

3û 
48 
5@ 
sa 


Fa 


PAL UUEE 





Exercice 8.1 

On joue le la 3 du diapason. 49 attend qu'on appuie sur 
une touche quelconque pour arrêter le son s'il est con- 
tinu. 


Exercice 8.2 


19 MUSIC 1 
29 MUSIC 2 
39 MUSIC 3 
4ÿ PLAY 7, 


3 
3 
3 


Se - 
US ss 
Hs = = 


Exercice 8.3 


On ajoute les instructions ci-dessous. 18ÿ est modifié. 
NF est le tableau des fréquences, NO celui des octaves 
et ND celui des durées. 


25 CATAE dd dd 
26 CATALAG, SH, 16 
41 FÜR Hei TO 
+ FÜR Hel TO 1%: 
LE C : PRINT'GAGNE" : GÜSUE 
Lada FÜR Hei TO 14 
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Exercice 8.3 (suite) 


gaie MUSIC 1, HOMO. HFCH5, 18 
2a2a FÜR Es TO HOCNO:HEXT 

ÉASA MUSIC 1, MOCH A MFCH BE MERT 
sB4n PLAYA. 6,08, 8: RETURH 


Exercice 8.4 
JEU "ETMON" 


DATA 1:26 6 JOIE 
UF Mel TO F:REMD MFCNOENEXT 

PAPER G:IME 

{el TO 4 

HSE Le LMTÉ 14 PÆRMD 1 23: HE TT 
FOR Iæi TO 4 
Fa, PAFER HËc I 
am MUSIC 144, HFCHSE I 10.18 
a FÜR El Le . MEET 
4 MUSIC 1: #4 
Tel: ARC à 
FOR LR TI 4 















+ Lei 
ENS ELX EX] 


LÉ: PAPER SHC T 4 


LH it 






MUSIC 14,5. 

BIEH=- 1: PAPER 
FOR Tæei T0 4 
1 BIENSSIENH AND CHSET 
IF BIEN THEH FEIHT OM 
IF Te THEN PE pt 
PRIT PPERTC 
FÜR Tel Te : 
LHEUT OM REC 

IF Age "OUT" 


+: 
TD RG 









AIT dit 


NS est la séquence préparée par l'ordinateur, tandis que 
SN est celle proposée par le joueur. Remarquez la va- 
riable logique BIEN et sa gestion. Bien entendu, vous 
pouvez apporter des variantes : nombre de notes par sé- 
quence et nombre de tentatives variables, possibilité 
de réentendre la séquence, traitement du cas où le jou- 
eur tape sur une autre touche que 1 à 7. 
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la découverte de l’ORIC 


L'ORIC est un ordinateur individuel qui permet 
à la fois des applications sérieuses et les jeux. Ce 
livre d'initiation couvre les deux aspects. Il ne 
nécessite pas de connaissances préalables. Après 
une introduction formée de rappels généraux sur 
l'informatique, il comprend essentiellement une 
présentation progressive du langage Basic. La décou- 
verte du langage est conduite en bâtissant des pro- 
grammes par améliorations successives au cours 
desquelles les notions nouvelles s’introduisent naturel- 
lement. On aborde spécialement les points forts de 
l'ORIC : graphiques, sons, couleurs, horloge. La délicate 
question des attributs est rendue compréhensible de façon 
très claire. 
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